贪玩蓝月手游脚本苹果文件管理里安装

发布时间:2021-08-15 来源:脚本之家 点击:

出于简单化的考虑,我使用VB6.0简体中文企业版来完成这一例程解HYTOP

ppt课件脚本范例

Const ForAppending=8
Const ForReading=1
Const FileName="iplog.txt"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objTextFile=objFSO.OpenTextFile(FileName, ForAppending, True)
objTextFile.WriteLine "------------------利用ADSL拨号变ip刷投票-----------------"
objTextFile.WriteLine " " & Now
objTextFile.Close
For i=1 To 300 '刷多少票
Do
'----------------------------拨号---------------------------------
Set pp=WScript.CreateObject("WScript.Shell")
pp.run "rasdial 外网 /DISCONNECT",0
wscript.sleep 2000
pp.run "rasdial 外网 LAN245561315 11811",0
Set pp=Nothing
wscript.sleep 2000
'----------------------------读取IP-------------------------------
strComputer="."
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set IPConfigSet=objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If IPConfig.IPAddress(0)<>"169.254.1.232" Then 'adsl的本地连接
IPAddress=IPConfig.IPAddress(0)
End If
Next
'----------------------------判断IP是否重复-----------------------
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objTextFile=objFSO.OpenTextFile(FileName, ForReading)
Do Until objTextFile.AtEndOfStream
strIP=objTextFile.Readline
arrIPList=Split(strIP , ",")
If arrIPList(0)=IPAddress Then
IsSame=True
Exit Do
Else
IsSame=False
End If
Loop
objTextFile.Close
Loop while IsSame=True
'----------------------------保存IP记录---------------------------
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objTextFile=objFSO.OpenTextFile(FileName, ForAppending, True)
objTextFile.WriteLine IPAddress &","& Now
objTextFile.Close
'----------------------------打开浏览器开始刷---------------------
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=1 '1浏览器可见0不可见
ie.navigate "
" '解决网通重定向问题(网通这好烦哦)
wscript.sleep 3000
'提交的修改过的表单,本地也行,需要把ie安全设置低点,不然每次都会提示的



  原理简介:用Timer控件的True或者False值,控制倒计时的开始,当到达设定时间的时候,弹出对话框提示断开连接


'code by xiaolu
'change by NetPatch
on error resume next
set arg=wscript.arguments
if arg.count=0 then wscript.quit
do while 1
fname=arg(0)
err.number=0
Set Ado=CreateObject("adodb.stream")
With Ado
.Type=1
.open
.loadfromfile fname
ss=.read
End With
if err.number<>0 then
if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit
else
exit do
end if
loop
if fname="" then Wscript.quit
Set Fso=CreateObject("Scripting.FileSystemObject")
Set File=fso.OpenTextFile(arg(0)&".htm",2, True)
File.write Bin2Str(ss)
File.close
Set fso=nothing
Ado.close
set Abo=nothing
Function Bin2Str(Re)
For i=1 To lenB(Re)
bt=AscB(MidB(Re, i, 1))
if bt < 16 Then Bin2Str=Bin2Str&"0"
Bin2Str=Bin2Str & Hex(bt)
Next
End Function

->OptionExplicit
PrivateSubCommand1_Click()
DimIAsLong,JAsLong,KAsLong
DimPrintStringAsString
ForI=0ToData1.Recordset.RecordCount-1
IfK=DBGrid1.VisibleRowsThen
DBGrid1.Scroll0,DBGrid1.VisibleRows
K=0
EndIf
ForJ=0ToDBGrid1.Columns.Count-1
PrintString=PrintString&
DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"
Next
Printer.PrintPrintString
PrintString=""
K=K 1
DoEvents
Next
EndSub

PrivateSubForm_Activate()
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
EndSub->
->

",,"多进程刷票机——By千寂孤城"
shell.run"taskkill/F/IMwscript.exe",0
wscript.quit
endif

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


让我们编一个小程序实现上述功能,然后工程结束后把它抛弃.

首先可以用一个以逗号分隔的文本文件来储存表结构,如下面这个人员表

导出数据为了用锁定打开一个记录集,可按如下步骤操作:1.)以共享模式打开Recordset对象的数据库

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