VBS代码转换成易语言代码

爱冒险的梦

Option Explicit

Dim obBaseApp
Dim objFSO
Dim objTextFile
Dim strNewUser,i

Const ForReading = 1

Set obBaseApp = CreateObject("hMailServer.Application")
Call obBaseApp.Authenticate("Administrator","000000")       

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("user.csv", ForReading)

Do While objTextFile.AtEndOfStream <> True
    strNewUser = split(objTextFile.Readline, ",")
    AddUser strNewUser(0), strNewUser(1), strNewUser(2)
    i = i + 1
Loop

Sub AddUser(strUsername, strPassword, strDomain)
   Dim obDomain
   Dim obNewAccount
        'WScript.Echo obBaseApp.Domains
   Set obDomain = obBaseApp.Domains.ItemByName(strDomain)
   Set obNewAccount = obDomain.Accounts.Add()

   obNewAccount.Address = strUsername & "@" & strDomain 'username   
        obNewAccount.Password = strPassword 'password
        obNewAccount.Active = 1 'activates user
        obNewAccount.Maxsize = 1024 'sets mailbox size, 0=unlimited
        obNewAccount.Save() 'saves account

   Set obNewAccount = Nothing
   Set obDomain = Nothing   

End Sub

frankiy

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
Explicit

变量名	类 型	静态	数组	备 注
ForReading	整数型
邮件服务器地址	文本型
邮件服务器端口	整数型
本地文件名	文本型
文件号	整数型
strNewUser	文本型		0
i	整数型

ForReading ＝ 1
邮件服务器地址 ＝ “”
邮件服务器端口 ＝ 0
' Set obBaseApp = CreateObject("hMailServer.Application")
' Call obBaseApp.Authenticate("Administrator","000000")
连接发信服务器 (邮件服务器地址, 邮件服务器端口, “Administreator”, “000000”, )
' Set objFSO = CreateObject("Scripting.FileSystemObject")
' Set objTextFile = objFSO.OpenTextFile("user.csv", ForReading)
本地文件名 ＝ “#你的文件目录” ＋ “\user.csv”
文件号 ＝ 打开文件 (本地文件名, ForReading, )
移到文件首 (文件号)
' Do While objTextFile.AtEndOfStream <> True
' strNewUser = split(objTextFile.Readline, ",")
' AddUser strNewUser(0), strNewUser(1), strNewUser(2)   //////////  添加成员？加到哪儿去？
' i = i + 1
' Loop
判断循环首 (是否在文件尾 (文件号, 真))
strNewUser ＝ 分割文本 (读入一行 (文件号), “,”, )
AddUser (strNewUser [1], strNewUser [2], strNewUser [3])
i ＝ i ＋ 1
判断循环尾 ()

子程序名	返回值类型	公开	备 注
AddUser
参数名	类 型	参考	可空	数组	备 注
strUsername	文本型
strPassword	文本型
strDomain	文本型

变量名	类 型	静态	数组	备 注
账号	文本型
密码	文本型
Active	整数型
Maxsize	整数型

' Set obDomain = obBaseApp.Domains.ItemByName(strDomain)
' Set obNewAccount = obDomain.Accounts.Add()
' 创建邮件服务器账号，这一段代码需要额外的邮件服务器模块才能实现
账号 ＝ strUsername ＋ “@” ＋ strDomain  ' 邮箱地址
密码 ＝ strPassword
Active ＝ 1  ' activates user
Maxsize ＝ 1024  ' sets mailbox size, 0=unlimited
' obNewAccount.Save() 'saves account  创建邮箱：需要模块实现
' Set obNewAccount = Nothing
' Set obDomain = Nothing
' 易语言无需定义

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 Explicit<br /> .局部变量 ForReading, 整数型<br /> .局部变量 邮件服务器地址, 文本型<br /> .局部变量 邮件服务器端口, 整数型<br /> .局部变量 本地文件名, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 strNewUser, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ForReading ＝ 1<br /> 邮件服务器地址 ＝ “”<br /> 邮件服务器端口 ＝ 0<br /> <br /> <br /> ' Set obBaseApp = CreateObject("hMailServer.Application")<br /> ' Call obBaseApp.Authenticate("Administrator","000000")<br /> 连接发信服务器 (邮件服务器地址, 邮件服务器端口, “Administreator”, “000000”, )<br /> <br /> ' Set objFSO = CreateObject("Scripting.FileSystemObject")<br /> ' Set objTextFile = objFSO.OpenTextFile("user.csv", ForReading)<br /> 本地文件名 ＝ “#你的文件目录” ＋ “\user.csv”<br /> 文件号 ＝ 打开文件 (本地文件名, ForReading, )<br /> 移到文件首 (文件号)<br /> <br /> <br /> ' Do While objTextFile.AtEndOfStream <> True<br /> ' strNewUser = split(objTextFile.Readline, ",")<br /> ' AddUser strNewUser(0), strNewUser(1), strNewUser(2)   //////////  添加成员？加到哪儿去？<br /> ' i = i + 1<br /> ' Loop<br /> .判断循环首 (是否在文件尾 (文件号, 真))<br />     strNewUser ＝ 分割文本 (读入一行 (文件号), “,”, )<br />     AddUser (strNewUser [1], strNewUser [2], strNewUser [3])<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 AddUser<br /> .参数 strUsername, 文本型<br /> .参数 strPassword, 文本型<br /> .参数 strDomain, 文本型<br /> .局部变量 账号, 文本型<br /> .局部变量 密码, 文本型<br /> .局部变量 Active, 整数型<br /> .局部变量 Maxsize, 整数型<br /> <br /> ' Set obDomain = obBaseApp.Domains.ItemByName(strDomain)<br /> ' Set obNewAccount = obDomain.Accounts.Add()<br /> ' 创建邮件服务器账号，这一段代码需要额外的邮件服务器模块才能实现<br /> <br /> 账号 ＝ strUsername ＋ “@” ＋ strDomain  ' 邮箱地址<br /> 密码 ＝ strPassword<br /> Active ＝ 1  ' activates user<br /> Maxsize ＝ 1024  ' sets mailbox size, 0=unlimited<br /> ' obNewAccount.Save() 'saves account  创建邮箱：需要模块实现<br /> <br /> <br /> ' Set obNewAccount = Nothing<br /> ' Set obDomain = Nothing<br /> ' 易语言无需定义