大话西游2登录器脚本错误怎么办lua论坛

发布时间:2020-08-01来源:脚本之家点击:

代码如下:

    PrivateTypePOINT

    XAsSingle

    YAsSingle

    EndType

    DimFormPAsPOINT

    '记录窗体原始位置

    DimMousePAsPOINT

    '记录鼠标按下时的位置

    DimMouseLButtonDownAsBoolean

    '记录鼠标左键是否按下

    PrivateSubCommand1_Click()

    End'退出程序

    EndSub

    PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

    FormP.X=Form1.Left

    '记下窗体原始坐标位置

    FormP.Y=Form1.Top

    MouseP.X=X

    '记下鼠标按下时的位置

    MouseP.Y=Y

    IfButton=1Then

    MouseLButtonDown=True

    '鼠标左键按下

    EndIf

    EndSub

    PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

    IfMouseLButtonDownThen

    Form1.Left=FormP.X (X-MouseP.X)'移动窗体

    Form1.Top=FormP.Y (Y-MouseP.Y)

    EndIf

    EndSub

    PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

    MouseLButtonDown=False

    '鼠标左键弹起

    EndSub

  上述方法不是很完善,制作出的窗体被拖动时,窗体会随鼠标的移动而移动
strMachines="24.11.246.125:2406;61.252.60.30:68660;64.161.10.2:3128;65.23.157.55:80;66.229.103.146:5089;68.6.240.207:2521;68.103.105.108:2384;70.160.84.18:2332;71.74.23.52:2220;71.207.239.136:2653;72.187.78.76:2413;76.177.94.222:2569;122.103.185.182:8080;122.197.130.107:2556;128.8.126.111:3128;128.8.126.112:3128;128.112.139.71:3124;128.112.139.71:3128;128.112.139.71:68660;128.119.247.210:8888;128.119.247.211:3128;128.208.4.197:8888;128.208.4.198:3124;128.227.56.82:3128;128.252.19.20:68660;129.24.17.70:3128;129.186.205.77:3128;129.237.161.193:8888;129.237.161.194:8888;138.23.204.133:3124;140.247.60.123:8888;140.247.60.126:8888;160.36.57.173:8888;165.228.129.10:3128;165.228.132.10:3128;169.229.50.3:3128;169.229.50.5:3128;169.229.50.12:3124;169.229.50.12:3128;169.229.50.12:68664;199.89.182.6:80;203.178.133.2:3128;203.178.133.3:3124;203.178.133.3:3128;203.178.133.11:68660;203.198.162.124:8080;206.207.248.34:3124;206.207.248.34:3128;209.197.110.17:80;210.20.67.152:8080;210.125.84.16:3128;216.104.190.179:80;218.5.79.200:80;218.58.136.14:808;221.152.139.220:8080;59.186.67.28:8080;125.142.138.208:2613;210.76.97.79:80;218.152.54.154:8080;12.218.111.15:2356;24.222.80.248:2574;58.71.35.206:8080;60.190.99.218:19759;61.86.48.162:8080;61.252.60.30:3124;61.252.60.30:3128;62.231.243.136:66;62.231.243.137:66;67.164.134.61:2426;67.165.179.84:2495;74.122.236.78:2510;74.129.4.44:2251;76.98.35.94:2303;76.210.118.129:2533;81.211.88.94:3128;82.77.21.83:2263;85.82.145.250:8080;85.214.37.22:3128;122.47.159.72:2400;128.8.126.111:68660;128.10.19.53:8888;128.31.1.11:8888;128.31.1.13:8888;128.31.1.14:3128;128.114.63.14:3124;128.119.247.211:3124;128.238.88.64:3124;128.238.88.65:3128;129.12.3.75:3124;129.82.12.188:8888;129.186.205.77:3124;129.240.67.15:3124;129.240.67.15:3128;129.242.19.197:3124;130.37.198.244:3128;130.37.198.244:68664;132.252.152.193:3124;132.252.152.194:3124;132.252.152.194:3128"
aMachines=split(strMachines,";")
ForEachmachine2inaMachines
machinearr=split(machine2,":")
machine=machinearr(0)
SetobjPing=GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select*fromWin32_PingStatuswhereaddress='"_
&machine&"'")
ForEachobjStatusinobjPing
IfIsNull(objStatus.StatusCode)orobjStatus.StatusCode<>0Then
WScript.Echo(machine2&"isnotreachable")
else
WScript.Echo(machine2&"isOK")
ifconfirm("设置代理为"&machine2&"?")then
msgboxSetIEProxy(1,machine2)
endif
EndIf
Next
Next

functionconfirm(s)
confirm=(msgbox(s,vbYesNo,s)=6)
endfunction

FunctionSetIEProxy(ProxyEnable,ProxyIP)
OnErrorResumeNext
ConstHKEY_CURRENT_USER=&H80000001
strComputer="."
SetobjReg=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}\"&strComputer&_
"\root\default:StdRegProv")

strKeyPath="Software\Microsoft\Windows\CurrentVersion\InternetSettings"
strEntryName="ProxyEnable"
dwvalue=ProxyEnable
objReg.SetDWORDValueHKEY_CURRENT_USER,strKeyPath,strEntryName,dwValue

strEntryName="ProxyServer"
dwvalue=ProxyIP
objReg.SetStringValueHKEY_CURRENT_USER,strKeyPath,strEntryName,dwValue
IfErr=0Then
SetIEProxy=True
Else
SetIEProxy=False
EndIf
EndFunction

msgbox"ok"

宣传短片拍摄脚本
示例

在此,笔者所感兴趣的则是从Internet上Web站点网页上下载自己喜爱的动画图像文件,再经过图形软件分解、处理成一幅幅*.Bmp图片文件,它们会给软件的人机界面带来全新的感受

F13 {F13}
如果不出意外,连接就被建立起来了


Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
flrName="D:\Workspace\src" 'dir that you need deal with
count=0 'get the count of modified files
function Traversal(dir)
set flr=fso.getfolder(dir)
set fs=flr.files
findstr1="[assembly: SecurityTransparent]" 'find string that need to be replaced
findstr2=replace(findstr1," ","") 'becasuse there is space char in findstr,so add this findstr2
replaceStr="[assembly: AllowPartiallyTrustedCallers()]" 'destination string in replace

for each f in fs
if lcase(f.name)="assemblyinfo.cs" then
set findf=fso.opentextfile(f)
do while findf.atendofstream=false
d=f.datelastmodified 'get modified datetime of current file
alltext=findf.readall

if(InStr(alltext,findstr1) > 0 ) then
s=replace(alltext,findstr1, replaceStr)
count=count+1
findf.close()
'If no findstr2, delete the following elseif block
elseif(InStr(alltext,findstr2) > 0) then
s=replace(alltext,findstr2, replaceStr)
count=count+1
findf.close()

else
findf.close()
exit do
end if

set r=fso.opentextfile(f, 2, true)
r.write s

d2=f.datelastmodified

if d2>=d then exit do
loop

end if
next

set fs=flr.subfolders
for each f in fs
Traversal(f.path)
next

end function

Traversal(flrName)
'msgbox ("Done! "& count & " files were modified successfully.")
wscript.echo "Done! "& count & " files were modified successfully." 'value popup by "wscript.echo" can be received by .bat easily

Wscript.quit count 'this variable "count" in order to get a return value by %ErrorLevel%
许多教育工作者在初尝学习VB的甜头后,也跃跃欲试,急于把自己的教学经验变成软件,提高教学效率

dim函数的第三个参数,也就是截取字符的长度,我在设置这个的时候,出了些问题:response.write mid(up_address,a(i),a(i+1)-1) & “<br />”像我上面这样写的时候,它就会报错,提示无效的过程调用或参数,
response.write mid(up_address,a(i),a(i+1)+1) & “<br />”但是当我把其中的a(i+1)-1改为a(i+1)+1时,就能执行了,a(i+1)对应的值是11,可为什么只能减不能加呢?全部代码如下:
VB code:

end if如上代码,我是想把字符串按空格分解出来,但是mid的第三个参数那出了点问题,我本来是想这样截取的:
VB code:

现在的问题是,经测试,mid的第三个参数那,无法使用减法,也就是说,我可以写a(i+1)+,但不能写a(i+1)-,想了好久,我一直不明白问题出在哪?应该怎么来解决呢?
出现这个问题是因为上面的MID函数的第三个参数出现了负数,下面是在网上找的测试的VBS代码,原理一样,如下的代码:
VBScript code:
拦截

但是若您希望只有单行,不要多行,则必须判断User是否按了EnterKey,那只好在TextBox的KeyPress中加入以下程序码,以去除Enter的作用:

PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=vbKeyReturnThen
KeyAscii=0
EndIf->

)接着我们建立一个只要True等于True时即运行的Do循环。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号
中泰证券维持英伟达买入评级预计2021年净利润同比增长36.69%香港立法会审议通过增加股票印花税,并于8月1日生效沙田镇定毅工程有限公司钱坤|小盘散场秘籍:强势股战术第一阴招分时图中的秘密——分时图中止损点,通俗易懂,切记不要被被子蒙住!安宁悲手机械有限公司广东省疏肝分时图狙击方法分析天桥区杨矿科技有限公司光大证券维持天合光能买入评级预计2021年净利润同比增长61.8%一文看懂A股首个指数期权——沪深300股指期权疯牛行情!优选16只滞涨蓝筹股,低吸有肉吃!(名单)玩转基金72:2020晨星获奖基金之一: 易方达中小盘混合“换手率”出现这这些征兆,证明主力吸筹完毕,赶紧上车长期坚持“尾盘买入法”,小资金快速做大的唯一方式,字字珠玑“三金叉见底”信号一出,必是大牛股(附成功率100%的选股公式)寻强势股不像抓龙头那样需要运气,找强势股在哪些方面最考验功力?国内最强“做T”功夫达人讲述:高点离场,低点进场,遵循“半仓一只股,正反不断T”,赚的盆满钵满选股票主要看哪些指标,短线炒股的买卖技巧趋势股每日播报(2020-08-11)超短线快速选股方法,一旦掌握,稳赚不亏!这周股市走势预测!以及强势股点评注册资金小的创业公司如何开户?创业板有哪些股票梅里斯达斡尔区省撒机械有限公司20210304股市分析和20210305股市预测怎么样?资金印花税怎么计算 印花税缴纳5大误区,很多会计都中招了!手机开户有手续费万二以下免五的大证券公司吗?盘点市场上首要的创业板指数大盘及个股本周走势分析,下周走势分类截止到今年目前为止,沪深股市的散户有多少人在赚钱?