易语言浏览器脚本错误题
'makeanewproject;twoforms
'onform1acommandbutton
'putthecodeintherightplaces
'pressF5
SubForm2_load()
'intheform2_loadevent
'besuretomaketheform2smallerthenform1!
lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'intheform2_unloadevent
DimlngResult&
lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)
EndSub
'intheform2_generalsection
PrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLong
PrivatelngOrigParenthWnd&
SubCommand1_click
form2.Show
EndSub->

Set se=WSCript.CreateObject("Scripting.Encoder")
For i=9 to 127
tDecode(i)="JLA"
Next
For i=9 to 127
ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3)
For j=1 to 3
c=Asc(Mid(ChaineTemp,j,1))
tDecode(c)=Left(tDecode(c),j-1) & chr(i) & Mid(tDecode(c),j+1)
Next
Next
'Next line we correct a bug, otherwise a ")" could be decoded to a ">"
tDecode(42)=Left(tDecode(42),1) & ")" & Right(tDecode(42),1)
Set se=Nothing
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")
SetIPConfigSet=objWMIService.ExecQuery_
("SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")
ForEachIPConfiginIPConfigSet
IfNotIsNull(IPConfig.IPAddress)Then
Fori=LBound(IPConfig.IPAddress)toUBound(IPConfig.IPAddress)
WScript.EchoIPConfig.IPAddress(i)
Next
EndIf
Next
但是,当字符串中既有中文又有英文(这里将数字等视为英文)字符时,二者的返回值都不等于该字符串的输出长度
Text1.Text=""
'口令不正确,继续输入口令
EndIf
EndIf
----该段代码在Win95下用Vb5.0编译通过后,连同其它程序一起生成一个可执行文件,在Win95中执行该文件,运行到口令输入窗体时,没有发生任何问题,可是,当该程序原封不动地拿到Win98中同样用Vb5.0编译通过后,在Win98中执行该可执行文件,当运行到口令输入窗体时,不论口令输入正确与否,系统都会提示上面所说的严重错误,然后便退出程序,回到Win98中
Vbs脚本编程简明教程之十五——1
pin
首先要声明这三个API函数,它们分别是:RegSetValue、RegCreateKey、RegCloseKey,其作用是设置某一个主键的键值、创建一个主键、关闭对注册表主键的操作
SetWshShell=CreateObject("Wscript.Shell")
WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmdhere",""
WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmdhere\command",""
WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmdhere\command","c:\winnt\system32\cmd.exe/KCD%1","REG_SZ"
wscript.echo"操作成功"
setWshShell=nothing
。
- 易语言浏览器脚本错误题
- 新天龙八部免费脚本录制ie=utf-8
- 按键精灵脚本破解思路暗黑3国服
- 按键精灵怎么做脚本挂传奇手游触
- 挂机脚本软件免费版应急预案演练
- 抖音视频脚本怎么写检测第三次办
- 战舰世界脚本躲鱼雷2014
- 患者自杀倾向演练脚本穿越火线透
- 怎样自学写编剧脚本油猴导入本地
- 怎么在线泡点脚本没有经验sql数
- 微视频脚本幼儿园课件模图
- 征途手游随宠脚本辅助剑侠情缘抢
- 彩虹岛大厦脚本via怎样安装本地
- 录制app脚本复制模型
- 广告脚本文案图和手工图有区别
- 广告文案脚本模板360油猴下载
- 幼儿园课件脚本模版图永久费ios
- 山海经脚本mg动画文案案例
- 小故事分镜头脚本范例图片sql数
- 寻仙手游脚本leg有假人登录吗