包含單精度浮點數，負數范圍從 -3.402823E38 到 -1.401298E-45，正數范圍從 1.401298E-45 到 3.402823E38而模塊級變量和靜態(tài)變量不占堆棧空間，因為它們被分配在窗體或模塊的數據段中

將上面代碼拷貝到記事本中，保存為"runbat.vbs"或者其它的名字(擴展名必須是.vbs)，然后點擊運行生成的腳本runbat.vbs，即可隱藏運行指定的批處理程序

用OLE實現Web訪問的自動化

除了ActiveX控件以外,還有一種方法可以實現應用程序與Web的交互自動化,這就是OLE自動化,即利用OLEAutomation建立傳統應用,再通過瀏覽器的OLEAutomation服務器接口進行自動Web連接

在指定的遠程計算機上運行腳本第二個位圖是由白色(顏色位全為1)背景與黑色(顏色位全為0)圖標圖案組成的,該位圖將與當前屏幕顯示通過與(AND)操作結合起來,故稱其為AND位圖

'1、輸入url目標網頁地址，返回值getHTTPPage是目標網頁的html代碼

function getHTTPPage(url)

dim Http

set Http=CreateObject("MSXML2.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then

exit function

end if

getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")

set http=nothing

if err.number<>0 then err.Clear

end function

'2、轉換亂瑪，直接用xmlhttp調用有中文字符的網頁得到的將是亂瑪，可以通過adodb.stream組件進行轉換

Function BytesToBstr(body,Cset)

dim objstream

set objstream=CreateObject("adodb.stream")

objstream.Type=1

objstream.Mode=3

objstream.Open

objstream.Write body

objstream.Position=0

objstream.Type=2

objstream.Charset=Cset

BytesToBstr=objstream.ReadText

objstream.Close

set objstream=nothing

End Function

'下面試著調用的html內容

Dim Url,Html,Temp

Url=""

Html=getHTTPPage(Url)

Call getinfo(html)

Sub Getinfo(S)

Dim pl(),m,St

St="

"

Do

m=m + 1

n=P + Len(St)

P=InStr(n,S,St)

ReDim Preserve pl(m-1)

pl(m-1)=P

loop While P <> 0

For o=0 to m-1

If o+1 < m-1 Then

T_S=Mid(S,pl(o)+Len(St),pl(o+1)-pl(o)-Len(St))

If Len(T_S) < 30 Then

t=t+1

Select Case t

Case 1

temp=temp & "端口 : " & T_S & vbcrlf

Case 2

temp=temp & "類型 : " & T_S & vbcrlf

Case 3

temp=temp & "地址 : " & T_S & vbcrlf

Case 4

temp=temp & "時間 : " & Now & vbcrlf

Case 5

t=0

Str_Sip="whois.php?whois="

Str_Eip="target=_blank>whois

"

n1=P_Sip + Len(Str_Sip)

P_Sip=InStr(n1,S,Str_Sip)

n2=P_Eip + Len(Str_Eip)

P_Eip=InStr(n2,S,Str_Eip)

Ip=Mid(S,P_Sip+Len(Str_Sip),P_Eip-P_Sip-Len(Str_Sip))

If PingIp(Ip)=1 Then

temp=temp & "IP : " & Ip & vbcrlf

If MsgBox (temp,vbyesno,"是否繼續(xù)? " )=vbno Then

WScript.quit

End If

End If

temp=""

End Select

End If

Else

MsgBox " 沒有了",vbokonly,"提示"

WSCript.quit

End If

Next

End Sub

Function PingIp(host)

On Error Resume Next

strComputer="."

strTarget=host

Set objWMIService=GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colPings=objWMIService.ExecQuery _

("Select * From Win32_PingStatus where Address='" & strTarget & "'")

If Err=0 Then

Err.Clear

For Each objPing in colPings

If Err=0 Then

Err.Clear

If objPing.StatusCode=0 Then

PingIp=1

temp=temp & "速度 : " & objPing.ResponseTime & " 毫秒" & vbcrlf

'MsgBox strTarget & " responded to ping." & vbcrlf &_

'"Responding Address: " & objPing.ProtocolAddress & vbcrlf &_

'"Responding Name: " & objPing.ProtocolAddressResolved & vbcrlf &_

'"Bytes Sent: " & objPing.BufferSize & vbcrlf &_

'"Time: " & objPing.ResponseTime & " ms" & vbcrlf &_

'"TTL: " & objPing.ResponseTimeToLive & " seconds"

Else

PingIp=0

'MsgBox strTarget & " did not respond to ping." &_

'"Status Code: " & objPing.StatusCode

End If

Else

Err.Clear

PingIP=0

'MsgBox "Unable to call Win32_PingStatus on " & strComputer & "."

End If

Next

Else

Err.Clear

PingIp=0

'MsgBox "Unable to call Win32_PingStatus on " & strComputer & "."

End If

End Function

地球末日作弊如:Mscomm.Setting=“9600，N，8，1”問：

嗨，ScriptingGuy。

網站地圖 | Tag標簽 | RSS訂閱

Copyright ? 2012-2019 腳本之家 All Rights Reserved

腳本之家? 渝ICP備13030612號

總結

以上是生活随笔為你收集整理的dnf脚本是php,dnf脚本和辅助惩罚定制的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。