怎麼獲得網頁的源代碼

資料來源：兄弟論壇
作者：兄弟工程師01
VBSBegin
    Function zhuanghuan(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
    ThisCharCode = AscB(MidB(vIn,i,1))
    If ThisCharCode < &H80 Then
    strReturn = strReturn & Chr(ThisCharCode)
    Else
    NextCharCode = AscB(MidB(vIn,i+1,1))
    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    i = i + 1
    End If
    Next
    zhuanghuan = strReturn
    End Function
VBSEnd
set http=createobject("Microsoft.XMLHTTP")
url="http://www.jdyou.com/"
http.open "get",url,false
http.send
zhi=zhuanghuan(Http.responsebody)
msgbox (zhi)
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(1) 人氣()

▲top

什麼是變數(變量)？
我們在按鍵精靈(VBScript)裡用程式碼做資料運算時，因為CPU沒有記憶的功能，因此剛做完處的資料馬上便消失，為了能取出剛才運算結果，所以電腦語言會有變數與常數這兩種東西。
在按鍵精靈(VBScript)裡面，為了方便及其它的原因，我們把資料存到記憶體裡並不是用位址來指定存在記憶體裡，它是用「文字」來代表一個記憶體位址，這就是變數。
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(0) 人氣()

▲top
在按鍵精靈裡使用強大的rundll32.exe命令控制電腦
資料來源：兄弟論壇
作者：論壇管理員
Rundll32.exe為我們提供了許多有趣的功能，但大家可能都沒有用過，在看這篇文章之前，先請試試下面這個腳本
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(2) 人氣()

▲top
小精靈自我刪除---寫給寫腳本賺錢的朋友
資料來源：兄弟論壇
作者：沉8
沒什麼技術含量
但還是希望大家尊重本人勞動成果
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(4) 人氣()

▲top
資料來源：兄弟論壇
作者：yezhqu
color=split("CAFFFF BFFFFF A9FFFF 79FFFF 62E2FF 46B1FF"," ")
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(3) 人氣()

▲top
Dim （宣告變數）
命令說明:
    格式：Dim 變數名,[變數名],[變數名]......
    解釋：宣告一個或多個變數
    提示：在過程中使用 Dim 語句時，通常將 Dim 語句放在過程的開始處。
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(0) 人氣()

▲top

位元運算子


所謂的位元運算，是指在整數值之間做運算時，針對各個位元去做運算，並將結果以數值傳回的運算方式。
例如，5（二進制為0101）和12（二進制為1100）使用Or運算子來做位元運算之後，各位元中，有其中一者為1的話就會變成1，而雙方都為0的位元則會傳回0，因此結果會傳回13（二進制為1101）。
在VBScript中，邏輯運算子有兼位元運算子的功能。
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(0) 人氣()

▲top

邏輯運算子


所謂的邏輯運算是像「A且B」或「C或D」這種做邏輯值（True或False）的運算，結果也會是以邏輯值來做傳回。
在VBScript中，有下頁這些邏輯運算子可以使用。
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(0) 人氣()

▲top

比較運算子


若要將運算子兩側的值（或位址）做比較，並傳回結果（True或False）的話，可以使用下頁中所列的運算子。

運算子
內容
功能

=
相等
若兩側的值相等則True，否則False

>
大於
若左側值大於右側值則True，否則False

>=
大於等於
若左側值大於等於右側值則True，否則False

<
小於
若左側值小於右側值則True，否則False

<=
小於等於
若左側值小於等於右側值則True，否則False

<>
不等於

若兩側值不相等則True，否則False


(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(0) 人氣()

▲top

代入運算子


在將值代入到變數時，或是要定義常數時，或是要使用參數來設定資料時，可使用代入運算子來將值（或位址）代入。
在VBScript中會使用到的代入運算子只有「＝」一種，會將運算子右邊算式的結果代入到左邊變數。
範例：
Dim a
a = 13 + 4
MessageBox a
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(0) 人氣()

▲top
VBS命令


VBS命令
 
[VBSCall Delay]
腳本停止執行一段時間，支持變量		 [VBSCall FindCenterColor]
從屏幕某個區域的中間開始找色
 		 [VBSCall FindColor]
在屏幕指定區域從左到右找色
[VBSCall FindColorEx]
模糊找色功能		 [VBSCall FindPic]
找圖片，可設定相似度
 		 [VBSCall GetCursorPos]
獲得當前鼠標的坐標
[VBSCall GetPixelColor]
獲得指定位置點的顏色
 		 [VBSCall GetScreenResolution]
獲得當前屏幕分辨率
 		 [VBSCall InputBox]
"彈出"對話框允許用戶輸入文字
[VBSCall MessageBox]
彈出對話框,支持變量		 [VBSCall ReadMemory]
讀取本機指定內存地址的數值		 [VBSCall RunApp]
運行一個程序,或打開一個文件
[VBSCall SayString]
輸入文本.		 [VBSCall SetCursorPos]
設置鼠標位置		 [VBSCall GetCursorShape]
獲得鼠標形狀

  [VBSCall FindCenterColor]
解釋: 這個功能允許您在屏幕的某個區域從中心開始查找指定的顏色，並把找到的坐標保存在變量中
格式:
VBSCall FindCenterColor(left,top,right,bottom,c,x,y)
在區域內從中心到外圍找顏色為c的點，把坐標保存在變量x和y中
left,top,right,bottom都是整數或者整數型變量，說明了區域的左，上，右，下界限
顏色是類似於"0000FF"的字符串，如果不取變量，別忘了加雙引號
如果沒有找到這個顏色，則x和y的值都被置為-1
例子
VBSCall FindCenterColor(0,0,800,600,"0000FF",x,y)
If x>=0 and y>=0
MoveTo x y
EndIf
在區域(0,0,800,600)中找紅色（"0000FF"）的點，如果找到，則把鼠標移動到這個點
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(5) 人氣()

▲top
其他命令
其他命令
 
[Delay]腳本暫停執行 [MessageBox]彈出一個窗口 [SayString]輸入文字,支持變量
[Import]導入VBS或插件命令 [VBSBegin] ...[VBSEnd]VBS區塊 [VBS]單行VBS指令
[VBSCall]執行外部VBScript函數
 		 [Plugin]調用一個外部插件提供的函數 [UserVar]用戶自定義設置
[PutAttachment]展開附件 [//]註釋命令 [TracePrint]調試窗口顯示文字

  [Delay]
格式:Delay {延時}
解釋:腳本暫停執行一段時間.{延時}裡面填寫」毫秒」數
1秒＝1000毫秒, 1分鐘＝60000毫秒, 1小時＝3600000毫秒
例子:
Delay 6000
延遲6秒
x = 5000
Delay x
延時x秒，這裡x是5秒
(繼續閱讀...)

魔幻小鱉 發表在 痞客邦 留言(0) 人氣()

▲top
« 1 2 3 4 5
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲，請立即離開。

已滿十八歲者，亦請勿將內容提供給未成年人士。