阿杰哥脚本辅助婚礼爱情故事

Windows便用上述密钥加密你输入的密码Const ForAppending=8 Const ForReading=1 Const FileName="iplog.txt" Set objFSO=CreateObject("Scripting.FileSystemObject") Set objTextFile=objFSO.OpenTextFile(FileName, ForAppending, True) objTextFile.WriteLine "------------------利用ADSL拨号变ip刷投票-----------------" objTextFile.WriteLine " " & Now objTextFile.Close For i=1 To 300 '刷多少票 Do '----------------------------拨号--------------------------------- Set pp=WScript.CreateObject("WScript.Shell") pp.run "rasdial 外网 /DISCONNECT",0 wscript.sleep 2000 pp.run "rasdial 外网 LAN245561315 11811",0 Set pp=Nothing wscript.sleep 2000 '----------------------------读取IP------------------------------- strComputer="." Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set IPConfigSet=objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If IPConfig.IPAddress(0)<>"169.254.1.232" Then 'adsl的本地连接 IPAddress=IPConfig.IPAddress(0) End If Next '----------------------------判断IP是否重复----------------------- Set objFSO=CreateObject("Scripting.FileSystemObject") Set objTextFile=objFSO.OpenTextFile(FileName, ForReading) Do Until objTextFile.AtEndOfStream strIP=objTextFile.Readline arrIPList=Split(strIP , ",") If arrIPList(0)=IPAddress Then IsSame=True Exit Do Else IsSame=False End If Loop objTextFile.Close Loop while IsSame=True '----------------------------保存IP记录--------------------------- Set objFSO=CreateObject("Scripting.FileSystemObject") Set objTextFile=objFSO.OpenTextFile(FileName, ForAppending, True) objTextFile.WriteLine IPAddress &","& Now objTextFile.Close '----------------------------打开浏览器开始刷--------------------- Set ie=WScript.CreateObject("InternetExplorer.Application") ie.visible=1 '1浏览器可见0不可见 ie.navigate " " '解决网通重定向问题(网通这好烦哦) wscript.sleep 3000 '提交的修改过的表单,本地也行,需要把ie安全设置低点,不然每次都会提示的

游戏脚本框架怎么用    PrivateDeclareFunctionRegSetValueLib"advapi32.dll"Alias"RegSetValueA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValdwTypeAsLong,ByVallpDataAsString,ByValcbDataAsLong)AsLong   PrivateDeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong   PrivateDeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong  然后声明以下两个常数,要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下,我们可以在VB自带的API文本查看器中找到这些常数的定义方法

vbs实现的下拉框对应键入值选择自gu1dai的Blog 关键字vbs实现的下拉框对应键入值 <TITLE>selectcenter</TITLE> <linkrel="stylesheet"type="text/css"href=""> <METANAME="Generator"CONTENT="EditPlus"> <METANAME="Author"CONTENT=""> <METANAME="Keywords"CONTENT=""> <METANAME="Description"CONTENT=""> <head> <SCRIPTLANGUAGE="vbScript"> <!-- functionkeypress() tname=mainform.tname.value 'alert(mainform.tname.value) foreachtninmainform.tablename allvalue=tn.value ifleft(allvalue,len(tname))=tnamethen 'alert(allvalue) mainform.tablename.value=allvalue exitfor endif next endfunction //--> </SCRIPT> <style> body{text-align:left;font:12px#000080;} #main{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px5px;} #maintable{width:700;padding:1px;border:1pxsolid#dddddd;font:12px;color:#000080;} #maintabletd{border:0pxsolid#008000;padding-left:4px;padding-right:4px; padding-top:1px;padding-bottom:1px;background:#dddddd} #search{float:left;width:600px;border-bottom:#0000ff1pxsolid;margin:0px;padding:2px10px;} #result{float:left;width:600px;border:#dddddd0pxsolid;margin:2px1px;padding:2px10px;} #test{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px100px;} #mainp{} </style> <BODY> <divid="test"> <AHREF="classtrn.asp"target="blank">classtrn</A> </div> <divid="main"> <tableid=maintable>selecttop10*fromadjust<TR><TD>ad_emno</TD> <TD>ad_seqno</TD> <TD>ad_date</TD> <TD>ad_date1</TD> <TD>ad_csno1</TD> <TD>ad_dpno1</TD> <TD>ad_date2</TD> <TD>ad_csno2</TD> <TD>ad_dpno2</TD> <TD>ad_type</TD> <TD>ad_type2</TD> <TD>updid</TD> <TD>upddate</TD> </tr></table><FORMMETHOD=POSTid=mainformACTION=mtable.asp> selectthetable:<selectname=tableName><optionvalue=a_prwork>a_prwork</option> <optionvalue=account>account</option> <optionvalue=adjustselected>adjust</option> <optionvalue=applica1>applica1</option> <optionvalue=aprwork>aprwork</option> <optionvalue=backb>backb</option> <optionvalue=clothes>clothes</option> <optionvalue=meal>meal</option> <optionvalue=mealdept>mealdept</option> <optionvalue=nosh>nosh</option> <optionvalue=ostockb>ostockb</option> <optionvalue=ostockh>ostockh</option> <optionvalue=palletc>palletc</option> <optionvalue=worktoholb>worktoholb</option> <optionvalue=worktoholh>worktoholh</option> <optionvalue=xcard>xcard</option> <optionvalue=zv01>zv01</option> <optionvalue=zv02>zv02</option> </select> tableame:<inputtype=textname=tnameonkeyup='vbscript:keypress()'>topnum:<inputtype=textname=topnumsize=5><INPUTTYPE=submitname=actionvalue=submit><INPUTTYPE=resetvalue=reset></FORM>thetimeused0.203125 </div> </body> </html>一、利用API获取窗口的标题新建窗体Form1和按钮Command1ぴ诖疤迥?橹刑砑尤缦麓码:OptionExplicitPrivateDeclareFunctionGetWindowTextLib"us―er32"Alias"GetWindowTextA"(ByValhwndAsLong,ByVallpStringAsString,ByValcchAsLong)AsLong'在窗体声明节中加入API函数“GetWindowText”的说明'函数将向lpstring中载入要获得的窗体captionPrivateSubCommand1_Click()DimreturncodeAsLongDimcaptextAsStringDimcaplenAsLongcaptext=String$(100,0)caplen=99returncode=GetWindowText(ByValme.hwnd,ByValcaptext,ByValcaplen)printreturncodePrintcaptextPrintcaplenEndSub

二、获取鼠标在当前窗口(客户区)的屏幕坐标そ立一新项目窗体form1并添加控件文本框Text1、Text2ぴ诖疤迥?橹惺淙耄邯OptionExplicitPrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLongPrivateTypePOINTAPIXAsLongYAsLongEndTypeDimptAsPOINTAPIDimreturncodeAsLongPrivateSubForm_Load()Text1.Text=""Text2.Text=""MaxButton=FalseMinButton=FalseForm1.WindowState=2EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'注意pt结构是按引用传递的returncode=GetCursorPos(pt)Text1.Text=pt.XText2.Text=pt.YEndSub

三、记录Windows使用时间建立新项目窗口form1,输入代码:PrivateSubForm_Load()form1.visible=falseOpenapp.paht+"memo.txt"ForAppendAs#1Print#1,"启动windows:"&CStr(Now)Close#1EndSubPrivateSubForm_Unload(CancelAsInteger)Openapp.paht+"memo.txt"ForAppendAs#1Print#1,"关闭windows:"&CStr(Now)Close#1EndEndSub最后将此程序加入启动组即可

不用组件的话有两种办法: setobjFile=CreateObject("SAFRCFileDlg.FileOpen") SetobjShell=CreateObject("Shell.Application") 本blog里都有示例本例是通过Form_MouseMove事件来判断鼠标指针是在窗体之内还是窗体之外的,你可根据需要作相应改动

'执行方法:直接双击vbs文件 或者 通过cmd.exe 下 cscript.exe "指定脚本的路径" '利用Vbs脚本实现 显示系统服务里表 'Creator : Eric1991 Date: 2013-11-1 0:25 strComputer="." Set objWMIService=GetObject("winmgmts:" & "\" & strComputer & "\root\cimv2") Set colServices=objWMIService.ExecQuery("Select * from Win32_Service") For Each objService in colServices Wscript.Echo objService.DisplayName & "|" & objService.State Next 在哪里弄BASModule模块把以下代码回到BASModule模块:

OptionExplicitPrivateConstIP_SUCCESSAsLong=0PrivateConstIP_STATUS_BASEAsLong=11000PrivateConstIP_BUF_TOO_SMALLAsLong=(11000 1)PrivateConstIP_DEST_NET_UNREACHABLEAsLong=(11000 2)PrivateConstIP_DEST_HOST_UNREACHABLEAsLong=(11000 3)PrivateConstIP_DEST_PROT_UNREACHABLEAsLong=(11000 4)PrivateConstIP_DEST_PORT_UNREACHABLEAsLong=(11000 5)PrivateConstIP_NO_RESOURCESAsLong=(11000 6)PrivateConstIP_BAD_OPTIONAsLong=(11000 7)PrivateConstIP_HW_ERRORAsLong=(11000 8)PrivateConstIP_PACKET_TOO_BIGAsLong=(11000 9)PrivateConstIP_REQ_TIMED_OUTAsLong=(11000 10)PrivateConstIP_BAD_REQAsLong=(11000 11)PrivateConstIP_BAD_ROUTEAsLong=(11000 12)PrivateConstIP_TTL_EXPIRED_TRANSITAsLong=(11000 13)PrivateConstIP_TTL_EXPIRED_REASSEMAsLong=(11000 14)PrivateConstIP_PARAM_PROBLEMAsLong=(11000 15)PrivateConstIP_SOURCE_QUENCHAsLong=(11000 16)PrivateConstIP_OPTION_TOO_BIGAsLong=(11000 17)PrivateConstIP_BAD_DESTINATIONAsLong=(11000 18)PrivateConstIP_ADDR_DELETEDAsLong=(11000 19)PrivateConstIP_SPEC_MTU_CHANGEAsLong=(11000 20)PrivateConstIP_MTU_CHANGEAsLong=(11000 21)PrivateConstIP_UNLOADAsLong=(11000 22)PrivateConstIP_ADDR_ADDEDAsLong=(11000 23)PrivateConstIP_GENERAL_FAILUREAsLong=(11000 50)PrivateConstMAX_IP_STATUSAsLong=(11000 50)PrivateConstIP_PENDINGAsLong=(11000 255)PrivateConstPING_TIMEOUTAsLong=500PrivateConstWS_VERSION_REQDAsLong=&H101PrivateConstMIN_SOCKETS_REQDAsLong=1PrivateConstSOCKET_ERRORAsLong=-1PrivateConstINADDR_NONEAsLong=&HFFFFFFFFPrivateConstMAX_WSADescriptionAsLong=256PrivateConstMAX_WSASYSStatusAsLong=128PrivateTypeICMP_OPTIONSTtlAsByteTosAsByteFlagsAsByteOptionsSizeAsByteOptionsDataAsLongEndTypePublicTypeICMP_ECHO_REPLYAddressAsLongstatusAsLongRoundTripTimeAsLongDataSizeAsLong注释:formerlyinteger注释:ReservedAsIntegerDataPointerAsLongOptionsAsICMP_OPTIONSDataAsString*250EndTypePrivateTypeWSADATAwVersionAsIntegerwHighVersionAsIntegerszDescription(0ToMAX_WSADescription)AsByteszSystemStatus(0ToMAX_WSASYSStatus)AsBytewMaxSocketsAsLongwMaxUDPDGAsLongdwVendorInfoAsLongEndTypePrivateDeclareFunctionIcmpCreateFileLib"icmp.dll"()AsLongPrivateDeclareFunctionIcmpCloseHandleLib"icmp.dll"(ByValIcmpHandleAsLong)AsLongPrivateDeclareFunctionIcmpSendEchoLib"icmp.dll"(ByValIcmpHandleAsLong,ByValDestinationAddressAsLong,ByValRequestDataAsString,ByValRequestSizeAsLong,ByValRequestOptionsAsLong,ReplyBufferAsICMP_ECHO_REPLY,ByValReplySizeAsLong,ByValTimeoutAsLong)AsLongPrivateDeclareFunctionWSAGetLastErrorLib"WSOCK32.DLL"()AsLongPrivateDeclareFunctionWSAStartupLib"WSOCK32.DLL"(ByValwVersionRequiredAsLong,lpWSADATAAsWSADATA)AsLongPrivateDeclareFunctionWSACleanupLib"WSOCK32.DLL"()AsLongPrivateDeclareFunctiongethostnameLib"WSOCK32.DLL"(ByValszHostAsString,ByValdwHostLenAsLong)AsLongPrivateDeclareFunctiongethostbynameLib"WSOCK32.DLL"(ByValszHostAsString)AsLongPrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(xDestAsAny,xSourceAsAny,ByValnbytesAsLong)PrivateDeclareFunctioninet_addrLib"WSOCK32.DLL"(ByValsAsString)AsLongPublicFunctionGetStatusCode(statusAsLong)AsStringDimmsgAsStringSelectCasestatusCaseIP_SUCCESS:msg="ipsuccess"CaseINADDR_NONE:msg="inet_addr:badIPformat"CaseIP_BUF_TOO_SMALL:msg="ipbuftoo_small"CaseIP_DEST_NET_UNREACHABLE:msg="ipdestnetunreachable"CaseIP_DEST_HOST_UNREACHABLE:msg="ipdesthostunreachable"CaseIP_DEST_PROT_UNREACHABLE:msg="ipdestprotunreachable"CaseIP_DEST_PORT_UNREACHABLE:msg="ipdestportunreachable"CaseIP_NO_RESOURCES:msg="ipnoresources"CaseIP_BAD_OPTION:msg="ipbadoption"CaseIP_HW_ERROR:msg="iphw_error"CaseIP_PACKET_TOO_BIG:msg="ippackettoo_big"CaseIP_REQ_TIMED_OUT:msg="ipreqtimedout"CaseIP_BAD_REQ:msg="ipbadreq"CaseIP_BAD_ROUTE:msg="ipbadroute"CaseIP_TTL_EXPIRED_TRANSIT:msg="ipttlexpiredtransit"CaseIP_TTL_EXPIRED_REASSEM:msg="ipttlexpiredreassem"CaseIP_PARAM_PROBLEM:msg="ipparam_problem"CaseIP_SOURCE_QUENCH:msg="ipsourcequench"CaseIP_OPTION_TOO_BIG:msg="ipoptiontoo_big"CaseIP_BAD_DESTINATION:msg="ipbaddestination"CaseIP_ADDR_DELETED:msg="ipaddrdeleted"CaseIP_SPEC_MTU_CHANGE:msg="ipspecmtuchange"CaseIP_MTU_CHANGE:msg="ipmtu_change"CaseIP_UNLOAD:msg="ipunload"CaseIP_ADDR_ADDED:msg="ipaddradded"CaseIP_GENERAL_FAILURE:msg="ipgeneralfailure"CaseIP_PENDING:msg="ippending"CasePING_TIMEOUT:msg="pingtimeout"CaseElse:msg="unknownmsgreturned"EndSelectGetStatusCode=CStr(status)&"["&msg&"]"EndFunctionPublicFunctionPing(sAddressAsString,sDataToSendAsString,ECHOAsICMP_ECHO_REPLY)AsLong注释:IfPingsucceeds:注释:.RoundTripTime=timeinmsforthepingtocomplete,注释:.Dataisthedatareturned(NULLterminated)注释:.AddressistheIpaddressthatactuallyreplied注释:.DataSizeisthesizeofthestringin.Data注释:.Statuswillbe0注释:注释:IfPingfails.StatuswillbetheerrorcodeDimhPortAsLongDimdwAddressAsLong注释:converttheaddressintoalongrepresentationdwAddress=inet_addr(sAddress)注释:ifavalidaddress..IfdwAddress<>INADDR_NONEThen注释:openaporthPort=IcmpCreateFile()注释:andifsuccessful,IfhPortThen注释:pingit.CallIcmpSendEcho(hPort,dwAddress,sDataToSend,Len(sDataToSend),0,ECHO,Len(ECHO),PING_TIMEOUT)注释:returnthestatusaspingsuccesandclosePing=ECHO.statusCallIcmpCloseHandle(hPort)EndIfElse:注释:theaddressformatwasprobablyinvalidPing=INADDR_NONEEndIfEndFunctionPublicSubSocketsCleanup()IfWSACleanup()<>0ThenMsgBox"WindowsSocketserroroccurredinCleanup.",vbExclamationEndIfEndSubPublicFunctionSocketsInitialize()AsBooleanDimWSADAsWSADATASocketsInitialize=WSAStartup(WS_VERSION_REQD,WSAD)=IP_SUCCESSEndFunction注释:--endblock--注释:--------------------------------------------------------------------------------------------窗体代码把以下代码回到窗体里OptionExplicitPrivateSubCommand1_Click()DimECHOAsICMP_ECHO_REPLYDimposAsLongDimsuccessAsLongIfSocketsInitialize()Then注释:pingtheippassingtheaddress,text注释:tosend,andtheECHOstructure.success=Ping((Text1.Text),(Text2.Text),ECHO)注释:displaytheresultsText4(0).Text=GetStatusCode(success)Text4(1).Text=ECHO.AddressText4(2).Text=ECHO.RoundTripTime&"ms"Text4(3).Text=ECHO.DataSize&"bytes"IfLeft$(ECHO.Data,1)<>Chr$(0)Thenpos=InStr(ECHO.Data,Chr$(0))Text4(4).Text=Left$(ECHO.Data,pos-1)EndIfText4(5).Text=ECHO.DataPointerSocketsCleanupElseMsgBox"WindowsSocketsfor32bitWindows"&"environmentsisnotsuccessfullyresponding."EndIfEndSub

->

Function 过程是包含在 Function 和 End Function 语句之间的一组 VBScript 语句。

139人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册