仅需一条API函数：GetCursorPos
2、尝试创建法
'Date: 2010/6/18
'Author: Demon
'QQ: 380401911
'E-mail: still.demon@gmail.com
'Website:
Const Email_From="ddd@163.com" '发件人邮箱
Const Password="password" '发件人邮箱密码
Const Email_To="380401911@qq.com" '收件人邮箱
Set CDO=CreateObject("CDO.Message") '创建CDO.Message对象
CDO.Subject="From Demon" '邮件主题
CDO.From=Email_From '发件人地址
CDO.To=Email_To '收件人地址
CDO.TextBody="Hello world!" '邮件正文
cdo.AddAttachment="C:\hello.txt" '邮件附件文件路径
Const schema="" '规定必须是这个，我也不知道为什么
With CDO.Configuration.Fields '用with关键字减少代码输入
.Item(schema & "sendusing")=2 '使用网络上的SMTP服务器而不是本地的SMTP服务器
.Item(schema & "smtpserver")="smtp.gmail.com" 'SMTP服务器地址
.Item(schema & "smtpauthenticate")=1 '服务器认证方式
.Item(schema & "sendusername")=Email_From '发件人邮箱
.Item(schema & "sendpassword")=Password '发件人邮箱密码
.Item(schema & "smtpserverport")=465 'SMTP服务器端口
.Item(schema & "smtpusessl")=True '是否使用SSL
.Item(schema & "smtpconnectiontimeout")=60 '连接服务器的超时时间
.Update '更新设置
End With
CDO.Send '发送邮件
你知道ADO控件和DATA控件有冲突吗？试一试下面的例子：
DimdbAsDatabase
DimrsAsRecordset
Setdb=OpenDatabase("d:\stock\yline.mdb")
Setrs=db.OpenRecordset("selectcount(*)astotalcountfromylinewhere条件")***
MsgBox(rs(0))
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
‘注明，这个例子在一般情况下运行正常
只有当一个FROM中已有ADO控件，你运行上面的例子
程序就会在***处的语句中出现实时错误'13'，类型不匹配的错误
这就是ADO控件和DATA控件的冲突，如果你想共存的话，下面的对你就有用了
Function UnixTime()
Set objWMIService=_
GetObject("winmgmts:\\.\root\cimv2")
Set colItems=objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
TimeZone=objItem.CurrentTimeZone
Next
UnixTime=DateDiff("s", "01/01/1970 00:00:00", Now())
UnixTime=UnixTime - TimeZone * 60
End Function
而若用VB写操作系统的话，就好比乘热气球登月一样困难
Delay=5000
strComputer="."
Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set objStartup=objWMIService.Get("Win32_ProcessStartup")
Set objConfig=objStartup.SpawnInstance_
Set objProcess=GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn=objProcess.Create("C:\Program Files\Internet Explorer\iexplore.exe ", null, objConfig, PID)
If errReturn=0 Then
WScript.Echo "Process ID is: " & PID
End If
wscript.sleep Delay
Set colProcessList=objWMIService.ExecQuery("Select * from Win32_Process Where ProcessId='" & PID & "'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
WScript.Echo "Close ProcessId='" & PID & "'"
PrivateSubForm_Unload(CancelAsInteger)
OnErrorResumeNext
'
DimwsAsWorkspace
DimdbAsDatabase
DimrsAsRecordset
'
ForEachwsInWorkspaces
ForEachdbInws.Databases
ForEachrsIndb.Recordsets
rs.Close
Setrs=Nothing
Next
db.Close
Setdb=Nothing
Next
ws.Close
Setws=Nothing
Next
'
EndSub->
变量在过程或函数中有效地下城宾利代理在哪FunctionCheckSpell(IncorrectTextasstring)asstring
DimWordAsObject,retText$
OnErrorResumeNext
'建立对象并打开WORD
SetWord=CreateObject("Word.Basic")
'把需要检查的STRING放到WORD
Word.AppShow
Word.FileNew
Word.InsertIncorrectText
'运行WORD拼写检查
Word.ToolsSpelling
Word.EditSelectAll
'取返回值
retText=Word.Selection$()
CheckSpell=Left$(retText,Len(retText)-1)
'关闭文件并回到VB应用
Word.FileClose2
Show
SetWord=Nothing
EndFunction->
<scriptlanguage=vbs>
functionpass()
input=inputbox("请输入密码:","hello",,300,300)
ifinput=StrReverse("why?")then
location.href=("tpircsbvym/moc.udiab.ih//:ptth")
else
MsgBox"error"
location.href=
endif
endfunction
</script>
。
