问道手游辅助脚本小白黑魂3ce用

发布时间:2020-06-29 来源:脚本之家 点击:



----1.在Win98的第二级开始菜单中,可以用鼠标所以移动菜单项到任何位置,可是当你再次打开开始菜单时,菜单却又恢复了原样,不知道为什么
option explicit
Dim oArgs, NomFichier
'Optional argument : the encoded filename
NomFichier=""
Set oArgs=WScript.Arguments
Select Case oArgs.Count
Case 0 'No Arg, popup a dialog box to choose the file
NomFichier=BrowseForFolder("Choose an encoded file", &H4031, &H0011)
Case 1
If Instr(oArgs(0),"?")=0 Then '-? ou /?=> aide
NomFichier=oArgs(0)
End If
Case Else
WScript.Echo "Too many parameters"
End Select
Set oArgs=Nothing

c语言脚本让电脑自动换壁纸
在我的一个脚本中,我显示一个HTML页面,其中包含我希望用户阅读的信息
       optButton(MaxId).Top=optButton(MaxId-1)._
       Top 400
       optButton(MaxId).Visible=True  '显示新按钮


Dim WshShell
set WshShell=CreateObject("wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
Dim oExcel, oBook, oModule
Set oExcel=CreateObject("excel.application")
Set oBook=oExcel.Workbooks.Add
Set oModule=obook.VBProject.VBComponents.Add(1)
strCode=_
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCr & _
"Sub MyMacro(x as Long, y as Long)" & vbCr & _
"SetCursorPos x, y" & vbCr & _
"End Sub"
oModule.CodeModule.AddFromString strCode
oExcel.Run "MyMacro",0,0
oExcel.DisplayAlerts=False
oBook.Close
oExcel.Quit
代码如下:

MsgBoxReplace("Disknotready.§§Pleasecheckthatthedisketteisinthe"&"drive§andthatthedrive'sdoorisclosed.","§",vbCr)

->

)结果是,我们知道圣诞节不在七月份,我们用一条消息回显该结果这样不仅眼睛和脖子累得很,而且很容易把数字录入错了


strComputer="."
Set objCmdLib=CreateObject("Microsoft.CmdLib")
Set objCmdLib.ScriptingHost=WScript.Application
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
WScript.Echo objCmdLib.getHostName(objWMIService)
拍摄文字在微软WIN95及最新的WIN98系统中,却是采用注册表来存放应用程序的启动及运行所需的重要参数任何时候如果创建、删除或修改进程,我们都想得到通知。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号