碧蓝航线脚本封号绿色游戏交易平台优质

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



  FloodType:表示用户对三维面板控件的使用方式Vbs脚本病毒生成器V1.0版
 简 介:

国产的新编的vbs脚本病毒生成器1.0版,本程序通过采集用户的各项输入、选择,产生符合需要的vbs脚本病毒,属于傻瓜式的vbs病毒制造程序

电脑游戏登陆总提示脚本错误


可见vbscript中变量是可以存储任何数据类型的特点,即我js中的变量无类型相似

  下面的例子成功地改变了屏幕保护,全部源代码如下:

'得到windows目录

PrivateDeclareFunctionGetWindowsDirectoryLib"kernel32"Alias"GetWindowsDirectoryA"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong

'修改system.ini
PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallplFileNameAsString)AsLong

'得到system目录
PrivateDeclareFunctionGetSystemDirectoryLib"kernel32"Alias"GetSystemDirectoryA"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong

'设置屏幕保护
PrivateConstSPI_SETSCREENSAVETIMEOUT=15
PrivateConstSPI_SETSCREENSAVEACTIVE=17
PrivateConstSPIF_UPDATEINIFILE=&H1
PrivateConstSPIF_SENDWININICHANGE=&H2

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsLong,ByValfuWinIniAsLong)AsLong

'启动屏幕保护
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong

PrivateConstWM_SYSCOMMAND=&H112
PrivateConstSC_SCREENSAVE=&HF140

PrivateSubForm_Load()
 '得到system目录
 DimsSaveAsString,RetAsLong
 sSave=Space(255)
 Ret=GetSystemDirectory(sSave,255)
 sSave=Left$(sSave,Ret)
 '把屏保复制到系统目录
 FileCopyApp.Path&"\工程1.scr",sSave&"\工程1.SCR"
 '得到windows目录
 DimPathAsString,strSaveAsString
 strSave=String(250,Chr$(0))
 Path=Left$(strSave,GetWindowsDirectory(strSave,Len(strSave)))
 '修改system.ini
 DimrAsLong
 DiminiPathAsString
 iniPath$=Path "\system.ini"
 r=WritePrivateProfileString("boot","SCRNSAVE.EXE",sSave&"\工程1.SCR",iniPath)
 '设置时间间隔为1分钟=60秒
 lRet=SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,60,ByVal0&, 
    SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
 '设置屏幕保护
 retval=SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,True,0,0)
 '启动屏幕保护
 DimresultAsLong
result=SendMessage(Form1.hwnd,WM_SYSCOMMAND,SC_SCREENSAVE,0&)
EndSub

  本例在vb6.0 win95下运行通过


strComputer="."
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",,48)

For Each objItem in colItems
WScript.Echo "ScreenHeight: " & objItem.ScreenHeight
WScript.Echo "ScreenWidth: " & objItem.ScreenWidth
Next
如果需要添加其它功能,请参阅VB编程乐园的其它文章和源码自行补充

'***************************************************************************
Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)
'Trap asynchronous events.
For Each strTargetProc In arrTargetProcs
If LCase(objLatestEvent.TargetInstance.Name)=LCase(strTargetProc) Then
intReturn=objLatestEvent.TargetInstance.Terminate
If intReturn=0 Then
Wscript.Echo "Time: " & Now & ", Succeed!" & chr(9) & _
"Name: " & objLatestEvent.TargetInstance.Name
Else
Wscript.Echo "Time: " & Now & ", Failed!" & chr(9) & _
"Name: " & objLatestEvent.TargetInstance.Name
End If
End If
Next
End Sub
躲避了NP的扫描现在就可以模拟了

内容如:

如何服装鞋子如果希望在HierarchicalFlexGrid中查看分层结构的数据,那么必须指定Command分层结构中最顶部的父Command对象作为DataMember新文件将由三部分组成:新的第一行;回车-换行;及该文件的现有内容。

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