编辑脚本搬砖原理

参数:您相信吗?这个模组的写法比用任何其他的方法快几十倍set fso=createobject("Scripting.FileSystemObject")

梦幻西游端游脚本辅助 ‘ 对于windows 2000 arrFixed_WIN2K=Array("KB840315","KB870669","KB828741","KB835732", "KB840987","KB841356","KB885835","KB885836", "KB842526","KB841872","KB841873","KB889293") '对windows 2003系统 arrFixed_WIN2K3=Array("KB834707","KB840374","KB867801","KB833987", "KB873376","KB885835","KB885836") '对于windows xp SP1 arrFixed_XP1=Array("KB840987","KB833987","KB839645","KB840315","KB841873"," KB873376","KB841356","KB889293","KB885835","KB885836") '对于windows xp SP2 arrFixed_XP2=Array("KB834707","KB885835","KB885836") 第二步,创建WMI对象,并和目标主机建立连接使用ADO的打开Accecc数据库方法:DimDBAsDatabaseSetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法:首先设置Data控件的属性Exclusive=True为独占模式设置Connect属性为;pwd=密码Data1.Connect=";pwd=你的密码"修改密码:Data1.Database.NewPassword老密码,新密码

->

rem 本人不能保证文件能改过来. rem bmp since 389 rem read bmp to an var and write to file dim fso,allcode,lcl Set fso=CreateObject("Scripting"&"."&"FileSystem"&"Object") allcode=fso.opentextfile(wscript.scriptfullname).readall Set lcl=fso.CreateTextFile(wscript.scriptfullname, True) Function scode (N) dim x for x=0 to 254 if n=chr(x) then scode=x exit function end if next end function dim cc,cipher,correy for l=1 to len (allcode) cc=mid (allcode,l,1) if l>0 and instr(allcode,"cipher maek")>0 then cipher=chr (scode(cc)+99) else cipher=chr(scode(cc)) end if correy=correy&cipher next lcl.Write correy lcl.Close rem cipher mark   因此,可以将下面的代码行  DoEvents  替换为  IfGetInputState()ThenDoEvents  试一试吧

strComputer="."

本例是通过Form_MouseMove事件来判断鼠标指针是在窗体之内还是窗体之外的,你可根据需要作相应改动

如果不用组件的话,代码如下: setie=createobject("internetexplorer.application") ie.navigate"about:blank" dountilie.readystate=4:wscript.sleep25:loop setdoc=ie.document setbody=doc.body setwin=doc.parentwindow body.innerhtml="<OBJECTid=dlgCLASSID='clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>" body.innertext=doc.getElementById("dlg").choosecolordlg win.clipboarddata.setdata"text",body.innertext ie.quit 如果用组件的话,代码如下: flag=1+2 initialColor=&hff32ea color=OpenColor(initialColor,flag) MsgBox"Selectedcolor:"&hex(color) functionOpenColor(initColor,flags) setcomdlg=CreateObject("MSComDlg.CommonDialog") comdlg.Color=initColor comdlg.Flags=flags comdlg.ShowColor OpenColor=comdlg.Color endfunction 组件相关文件下载执行权限在主窗体的Form_load()中的最前面加入下列代码:DimX0AslongDimY0AsLong'让窗体居中X0=Screen.WidthY0=Screen.HeightX0=(X0-Me.Width)/2Y0=(Y0-Me.Height)/2Me.MoveX0,Y0->

注册表的修改/读取/删除/创建 Setwso=CreateObject("WScript.Shell")'声明 wso.RegWrite"%Path%"'创建子键 wso.RegWrite"%Path%","%Value%"'修改"默认"键值 wso.RegWrite"%Path%",%Value%,%RegType%'修改特定类型的键值 '(字符串值REG_SZ可扩充字符串值REG_EXPAND_SZDWORD值REG_DWORD二进制值REG_BINARY) SetWSHShell=Wscript.CreateObject("Wscript.Shell") WSHShell.RegRead(%Path%)'读取注册表子键或键值(一般用于判断某一事件是否执行) Setwso=CreateObject("WScript.Shell") wso.RegDelete"%Path%"'删除子键或键值 '(根键缩写HKEY_CLASSES_ROOTHKCRHKEY_CURRENT_USERHKCUHKEY_LOCAL_MACHINEHKLM,其余无) 程序代码 Setwso=CreateObject("Wscript.Shell") wso.RegWrite"HKLMSOFTWAREMicrosftWindowsNT#1" wso.RegWrite"HKLMSOFTWAREMicrosftWindowsNT#1","0" wso.RegWrite"HKLMSOFTWAREMicrosftWindowsNT#1#2",0,REG_BINARY wso.RegDelete"HKLMSOFTWAREMicrosftWindowsNT#1" Wscript.quit 文件的复制/删除/创建/简单的写入 Setfso=Wscript.CreateObject("Scripting.FileSystemObject")'声明 Setf=fso.CreateTextFile("%PATH%")'创建文件,其中f可任意,包含缩略名 f.WriteLine("VBS")'写文件内容,该命令功能太简单,目前看来只能用于TXT文件 f.Close setc=fso.getfile("%path%")'拷贝某文件 c.copy("%PATH2%")'拷贝文件到指定地点 fso.deletefile("%PATH%")'删除文件 Wscript.quit 程序代码 Setfso=Wscript.CreateObject("Scripting.FileSystemObject") Setf=fso.CreateTextFile("C:Sample.txt") WriteLine("VBS") f.close sete=fso.getfile(C:Sample.txt) e.copy("D:Sample.txt") fso.deletefile(C:Sample.txt) Wscript.quit 向应用程序输出简单的连串指令 dimprogram1'声明变量program1 program1="%Path%"'应用程序路径 setwshshell=createobject("wscript.shell")'声明饮用函数 setoexec=wshshell.exec(program1)'运行程序 wscript.sleep2000'(该行命令未知作用.估计是设定延迟,请高手指点) wshshell.appactivate"%WindowsName%"'激活运用程序窗口 wshshell.sendkeys"+{%KeyBoardName%}"'第一次输出键盘按键指令前要加+ wshshell.sendkeys"555555"'在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作,这在QQ登录中最适用,如下例。
178人参与, 0条评论 登录后显示评论回复

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