新天龙八部免费脚本录制ie=utf-8

发布时间:2021-04-16 来源:脚本之家 点击:

运行VB6,向窗体添加7个Label控件、1个Timer控件、3个Text文本输入框以及4个Command按钮
Function BrowseForFile()
Dim shell : Set shell=CreateObject("WScript.Shell")
Dim fso : Set fso=CreateObject("Scripting.FileSystemObject")

Dim tempFolder : Set tempFolder=fso.GetSpecialFolder(2)
Dim tempName : tempName=fso.GetTempName()
Dim tempFile : Set tempFile=tempFolder.CreateTextFile(tempName & ".hta")

tempFile.Write _
"<html>" & _
"<head>" & _

"<title>Browse</title>" & _
"</head>" & _
"<body>" & _

"<input type='file' id='f' />" & _
"<script type='text/javascript'>" & _
"var f=document.getElementById('f');" & _

"f.click();" & _
"var shell=new ActiveXObject('WScript.Shell');" & _
"shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
"window.close();" & _

"</script>" & _
"</body>" & _
"</html>"

tempFile.Close
shell.Run tempFolder & "" & tempName & ".hta", 0, True
BrowseForFile=shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")

shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function

'Author: Demon
'Website:
'Date: 2011/6/2

path=BrowseForFile()
If path <> "" Then WScript.Echo path

卡盟首页脚本代码
",,"多进程刷票机——By千寂孤城"
shell.run"taskkill/F/IMwscript.exe",0
wscript.quit
endif

'开始刷票
do
http.open"POST","http:/lookover.php?R1=2",false
http.send
loop

  ini文件的形式为:
  [section1]
  keyword1=value1
  keyword2=value2
  ……
  [section2]
  keyword1=value1
  keyword2=value2
  ……
  section是段名,keyword是关键字名,value为关键字对应的设定值
  首先用WritePrivateProfileSection创建新的段名和关键字名:
  DeclareFunctionWritePrivateProfileSectionLib"kernel32"Alias"WritePrivateProfileSectionA"(ByVallpAppNameAsString,ByVallpStringAsString,ByVallpFileNameAsString)AsLong
  DeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong
  A=WritePrivateProfileSection("user","password","c:\windows?ini")
  在windows目录下的user.ini文件中创建新段名user及该段名下的关键字password,如果目录下没有user.ini文件,则创建该文件
  B=WritePrivateProfileString("user","password","1234","c:\windows?ini"),设定关键字user的值为1234

错误描述:

当执行用VBScript写的WScript脚本时,出现了下面的错误:

Thereisnoscriptengineforfileextension".vbs".

或是

找不到.vbs的执行引擎


修复方法:

找到%WINDIR%/INF/WSH.inf,然后按右键,选择“安装”即可1.新建一个VisualBasic.NetWindows应用程序项目

常量:指的是在程序运行过程中其值保持不变的量,它用来保存固定不变的数值,字符串等常数声明:
DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLong
使用:
NewName="HelloWorld"
SetComputerNameNewName->

OptionExplicit

''''''''''''''说明''''''''''''
'网盟-黑火制作,送给需要的朋友奥比岛奥币这可以通过创建一个带有Private类和Public类(设定Instancing=MultiUse)的ActiveXEXE工程看到,在2个类模块中添加下面的代码:

PublicSubPublicSub(ByValvalueAsLong)

'

EndSub

PublicFunctionPublicFunction(ByValvalueAsLong)AsLong

'

EndFunction

FriendSubFriendSub(ByValvalueAsLong)

'

EndSub

FriendFunctionFriendFunction(ByValvalueAsLong)AsLong

'

EndFunction

然后,在表单模块中创建一个循环,执行每个例程许多次","请输入3位机器标识。

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