穿越火线刷经验脚本一梦江湖^下载

发布时间:2021-06-10 来源:脚本之家 点击:

PublicSubFocusMe(ctlNameAsControl)
WithctlName
.SelStart=0
.SelLength=Len(ctlName)
EndWith
EndSub

NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:

PrivateSubtxtFocusMe_GotFocus()
CallFocusMe(txtFocusMe)
EndSub->


On Error Resume Next
strComputer="."
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
Set colItems=objWMIService.ExecQuery( _
"associators of {win32_logicaldisk.deviceid='G:'} WHERE ResultClass=Win32_DiskPartition")
For Each objItem in colItems
TargetIndex=objItem.DiskIndex
Set Items=objWMIService.ExecQuery( _
"SELECT * FROM Win32_DiskDrive Where DeviceID Like '%" & objItem.DiskIndex & "'",,48)
For Each Item in Items
Wscript.Echo "Model: " & Item.Model
Next

Next
lol泽拉斯脚本是什么

Vx="————————————显卡信息————————————" & vbCrLf
Set cVID=WMI.ExecQuery("SELECT DeviceID FROM Win32_VideoController")
For Each oVID In cVID
Set Video=WMI.ExecQuery("SELECT * FROM Win32_VideoController WHERE DeviceID='"& oVID.DeviceID &"'")
For Each oVideo In Video
Vx=Vx _
& "显卡名称: " & oVideo.Name & vbCrLf _
& "制造厂商: " & oVideo.AdapterCompatibility & vbCrLf _
& "物理显存: " & Round(oVideo.AdapterRAM/1048576)&" MB " & vbCrLf _
& "显示模式: " & oVideo.CurrentHorizontalResolution &" X " _
& oVideo.CurrentVerticalResolution &" "_
& oVideo.CurrentBitsPerPixel &"Bit " _
& oVideo.CurrentRefreshRate &"Hz" & vbCrLf
Next
Next
Set Video=Nothing:Set cVID=Nothing


    用户单击CommandButton,将执行该CommandButton的Click事件过程中的代码

在命令提示符下显示帮助"当我查看详细资料则显示:"user.exe中导致常规保护错误


5.完成后自动关机
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VBAPI函数:
keybd_event←函数模拟了键盘行动
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明:
keybd_event

PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件:Timer(interval不为空)
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码:
PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)
PrivateSubTimer1_Timer()
Callkeybd_event(82,0,0,0)'模拟按下"R"键
EndSub
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它模拟:
方法一:
AppActivatesTitle
SendKeys"5"
方法二:
AppActivatesTitle
SendKeysvbKey5
方法三:
SendMessageHwnd,WM_KEYDOWN,vbKey5,0&
SendMessageHwnd,WM_KEYUP,vbKey5,0&
方法四:
AppActivatesTitle
keybd_event53,0,0,0
keybd_event53,0,KEYEVENTF_KEYUP,0
方法五:
PostMessagelHwnd,WM_KEYDOWN,vbKey5,0&
PostMessagelHwnd,WM_KEYUP,vbKey5,0&->



@echo off
echo dim WshShell,cmd >> %3runas.vbs
echo cmd="%SystemRoot%\system32\cmd.exe" >> %3runas.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell") >> %3runas.vbs
echo WshShell.Run cmd >> %3runas.vbs
echo WScript.Sleep 500 >> %3runas.vbs
echo WshShell.SendKeys"runas /user:Administrators\%1 %3Bcmd.bat" >> %3runas.vbs
echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs
echo WScript.Sleep 1000 >> %3runas.vbs
echo WshShell.SendKeys"%2" >> %3runas.vbs
echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs
echo WScript.Sleep 500 >> %3runas.vbs
echo WshShell.SendKeys"exit" >> %3runas.vbs
echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs
echo @echo off >> %3Bcmd.bat
echo %4 %5 %6 %7 %8 %9 >> %3Bcmd.bat
echo del %3runas.vbs >> %3Bcmd.bat
echo del %3Bcmd.bat >> %3Bcmd.bat
%3\runas.vbs
以上保存为BAT
以上保存为VBS

Runas
只有在通过自动登陆读到密码时才有用采集80添加Commamd1执行一个费时的操作,包括调用多个过程和函数,而Command2则是终止/暂停Command1的运行,不是退出该程序,不知用VB5.0如何解决?
答:你可以采用一种变通的方法,在程序中定义一个Boolean变量,在执行command1中的程序时监视该变量,如果为False退出程序,在command2中加入代码,只要点击command2就将该变量设置为False下面是例程
DimbMarkAsBoolean
PrivateSubCommand1_Click()
bMark=True
ForI=1To150000'Startloop.
DoEvents'Yieldtooperatingsystem.
Text1.Text=Str(I)
IfNotbMarkThen
ExitSub
EndIf
NextI'Incrementloopcounter
EndSub

PrivateSubCommand2_Click()
bMark=False
EndSub

问:有位大侠编了如下代码:
PrivateSubcmdCalendar_Click()
DimUserDateAsDate

UserDate=CVDate(txtDate)
IffrmCalendar.GetDate(UserDate)Then
txtDate=UserDate
EndIf
EndSub

Sub Network(Disks,Sizes,DskPs)
sNow=Now
Do
Dim A
'WScript.Echo "已运行"&Ts\3600&"小时"&(Ts mod 3600)\60&"分钟"&(Ts mod 3600) mod 60&"秒"
Set A=WMI.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_PhysicalDisk Where Name='"&DskPs&"'")
For Each B In A
R1=B.DiskReadBytesPersec
W1=B.DiskWriteBytesPersec
If RA0="" Then RA0=B.DiskReadBytesPersec Else RA1=R1 End If
If WA0="" Then WA0=B.DiskWriteBytesPersec Else WA1=W1 End If
Next
Set A=Nothing
WScript.Sleep(InputS)
Set A=WMI.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_PhysicalDisk Where Name='"&DskPs&"'")
For Each B In A
R2=B.DiskReadBytesPersec
W2=B.DiskWriteBytesPersec
Next
Set A=Nothing
WScript.Echo Disks &" " &Round(Sizes/1073741824) &"GB" &vbCrLf _
&"实时读取:" & CheckSize((R2-R1)/Input) &"/s" &vbCrLf _
&"实时写人:" & CheckSize((W2-W1)/Input) &"/s"&vbCrLf _
&"脚本累计读取:" & CheckSize(RA1-RA0) &vbCrLf _
&"脚本累计写入:" & CheckSize(WA1-WA0) &vbCrLf _
&"开机累计读取:" & CheckSize(R1) &vbCrLf _
&"开机累计写入:" & CheckSize(W1) &vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf _
&"已运行"&Ts\3600&"小时"&(Ts mod 3600)\60&"分钟"&(Ts mod 3600) mod 60&"秒"
Ts=DateDiff("s", sNow, Now)'Ts=TS+1
Loop
End Sub

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