『壹』 請問網頁里怎麼添加腳本
<script></script>這個是腳本標簽,就是在網頁頭部(標簽<head></head>)內添加對應的script標簽,其中參數為lanange(
腳本語言
),type(腳本類型),src(
腳本文件
路徑)。這樣就OK了。
『貳』 網頁腳本到底是什麼意思
腳本其實一組操作的集合,網頁腳本像VB腳本和Java腳本
.vbs
或
.js
它們都是純文本文件可以用記事本打開查看它的代碼。只不過是用了VB或Java的語法。它們在客戶端機器上執行。
『叄』 怎樣查看網站的腳本語言
在當前網頁里的工具欄里點
查看--------源文件
就可以看到這一頁的代碼了,當然有的網頁是防止你看的
『肆』 如何獲取網頁腳本
右鍵網頁 選擇審查元素 代碼就出來了
『伍』 怎樣查看網頁所用的腳本技術
很簡單,只要看打開的網頁的地址欄的結尾,
PHP,ASP,.net,JSP或html
『陸』 按鍵精靈在網頁查找關鍵字的腳本是什麼
用這個子程序:
Else
xmlUrl = 網頁地址
End if
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "Get", xmlUrl, False
xmlHttp.Send
xmlBody = xmlHttp.ResponseBody
Set xmlHttp = Nothing
獲得網頁源文件 = ""
If Len(xmlBody) = 0 Then Exit Function
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.Write xmlBody
.Position = 0
.Type = 2
.Charset = "UTF-8"
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
獲得網頁源文件 = BytesToBstr
End Function;
『柒』 如何查看Web頁面當中的一些圖像切換特效所對應的js腳本
一般先看 它頁面引入的腳本插件,這個要經驗
通過google F12,可以 看sources看有哪些腳本 引入了,
第二就是看這個圖片上一級的div或者 ul這種大塊的class名 或者 id名,一般都 會寫上特別的名稱,也可以查找頁面,看是否有其他地方出現,一般腳本 會有的。
其實 這都 是些經驗,一點點找咯。
『捌』 求在按鍵精靈中實現網頁刷新與查找特定顏色並點擊的腳本
新建,找開按鍵抓抓,抓取,抓取任意綠色,然後開始做腳本
Do
MoveTo 「網上約車」按鈕坐標
Delay 50
LeftClick 1
Delay 500
FindColorEx 0,0,1024,768,"0000FF",0,0.9,intX,intY
//0,0,1024,768 改為會出現綠色的區域
//"0000FF"改為你抓取的綠色,引號不能少
If intX > 0 And intY > 0 Then
MoveTo intx + 5, inty + 5
Delay 50
LeftClick 1
Delay 200
MessageBox "出現了"
End If
Loop
『玖』 怎麼在頁面上看JS腳本
滑鼠右鍵點擊頁面,選擇查看源代碼。裡面就有js腳本。
但通過引用的腳本是看不到的
『拾』 按鍵精靈在網頁查找關鍵字的腳本
'能!
'用這個子程序
Function 獲得網頁源文件(網頁地址)
//說明:支持遠程獲取文本內容,如:MsgBox lib.網路.獲得網頁源文件("http://www.jdyou.com/test.txt")
//例子:MsgBox lib.網路.獲得網頁源文件("http://www.jdyou.com")
Dim xmlHttp, xmlBody, xmlUrl
Dim ThisCharCode ,NextCharCode ,BytesToBstr
If InStr(網頁地址, "http://") = 0 Then
xmlUrl = "http://" & 網頁地址
Else
xmlUrl = 網頁地址
End if
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "Get", xmlUrl, False
xmlHttp.Send
xmlBody = xmlHttp.ResponseBody
Set xmlHttp = Nothing
獲得網頁源文件 = ""
If Len(xmlBody) = 0 Then Exit Function
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.Write xmlBody
.Position = 0
.Type = 2
.Charset = "UTF-8"
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
獲得網頁源文件 = BytesToBstr
End Function
'比如:你想查找到有"網路"字眼你就彈出一對話框,那麼可以如下實現.
Text=獲得網頁源文件("http://www..com")
if Instr(Text,"網路")>0 then
messagebox "測試彈出對話框"
End if
'以上所有文字 你復制到你按鍵精靈代碼編輯器里一試便知。