fgo自动签到脚本直播接码平台

发布时间:2020-10-21 来源:脚本之家 点击:

->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->
->

的确如此:对于一位Microsoft经理来说,了解情况将是最为重要的
坠床跌倒应急预案脚本

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

从"Object"下拉列表框中选择"Class";

  再从"Procedure"下拉列表框中选择"Initialize";

  在Class_Initialize事件中添加下列代码:

->  PrivateSubClass_Initialize()

   SetobjFileCheck=NewForm1

  EndSub->

  该代码简单地使objFileCheck等于Form1的新的一个实例

3格式输入,比如" "D:\Progra~1\Tencent\QQ设置了这个属性后,坐标(0,0)就映射到你需要加边的地方


If (Lcase(Right(Wscript.FullName,11))="wscript.exe") Then
CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=100&Cscript.exe //NoLogo "&Chr(34)& Wscript.ScriptFullName &Chr(34)&"&&(Echo 此窗口40秒后自动关闭...&Ping -n 40 127.0.1>nul&Exit)"&Chr(34)),3:Wscript.Quit
Wscript.Quit
End If
Set WMI=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colLoggedEvents=WMI.ExecQuery("Select * from Win32_NTLogEvent Where Logfile='System' And EventCode='6005' Or EventCode='6006' Or EventCode='6008'")
For Each objEvent In colLoggedEvents
Flag=Flag + 1
If Flag=1 Then
Wscript.Echo "本次开机时间: " & UTCtoNow(objEvent.TimeWritten)
ElseIf (Flag Mod 2)=0 Then
G=UTCtoNow(objEvent.TimeWritten)
Else
K=UTCtoNow(objEvent.TimeWritten)
Wscript.Echo "前次开机:"&K&" "&vbTab&"对应关机:"&G&" "&vbTab& "运行时长:" &StoHMS(DateDiff("s", K, G))
End If
Next

Function UTCtoNow(nD)
If Not IsNull(nD) Then
Set SWDT=CreateObject("WbemScripting.SWbemDateTime")
SWDT.Value=nD
UTCtoNow=SWDT.GetVarDate(True)
End If
End Function

Function StoHMS(Sec)
H=Int(Sec/3600) :H1=Sec Mod 3600:M=Int(H1/60) :S=H1 Mod 60
StoHMS=H & "小时" & M & "分钟" & S &"秒"
End Function
以下代码可以完成检验ForeColor属性的任务:  

  PrivateSubTimer1_Timer()  

  IfLabel1.ForeColor=Label1.BackColorThen

  Label1.ForeColor=vbBlack

  Else

  Label1.ForeColor=Label1.BackColor

  EndIf  

  EndSub  

  另外,你也可以让文字采用不同的颜色,比如交替采用红色和绿色:  

  PrivateSubTimer1_Timer()  

  IfLabel1.ForeColor=vbRedThen

  Label1.ForeColor=vbGreen

  Else

  Label1.ForeColor=vbRed

  EndIf  

  EndSub  

  当你停止文字闪烁时,还要确定文字的状态是可见的并且采用了合适的色彩

",64,"提示":WScript.Quit
Case "网上邻居"
MsgBox "无效目录maxscript加载 类型希望有其它网友能够提供自己的见解

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