網頁 貼吧 文章 作者 工作  
網頁搜尋
 
 愛PO吧 >> 劉品言抽煙的圖片 >> 瀏覽文章
回覆 加入我的最愛 與好友分享

[vb6]抓取yahoo大頭貼

本被文章 0 次, 共有回覆 0  
0
 
0
xyz軟體補給站
[vb6]抓取yahoo大頭貼











xyz資訊工坊
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim yahooID

Dim strInput As String
yahooID = InputBox("請輸入即時通帳號", "大頭貼抓取小工具")
If yahooID <> "" Then '偵測是否輸入ID

If StrPtr(yahooID) <> 0 Then '偵測是否按了確定鍵

URLDownloadToFile 0, "http://img.msg.yahoo.com/avatar.php?yids=" & yahooID & "&format=jpg", App.Path & "\" & yahooID & ".jpg", 0, 0

ShellExecute Me.hWnd, "", App.Path & "\" & yahooID & ".jpg", 0, 0, 0

End If

End If

End Sub
xyz資訊工坊








xyz資訊工坊

逛上一篇:   逛下一篇:

作者: ecucxwnxnn
  (2010-07-25 16:04)
推薦文章: 將本文章推薦到【百度收藏】 將本文章推薦到【YouPush】 將本文章推薦到【udn共享書籤】 將本文章推薦到【Fiigo】書籤

 本文章共有回覆 0 篇,分 1 頁
 聲明:以上內容不代表本站立場,且內容由網友發表提供,若有爭議或違法由發表者承擔,本站將不負責連帶責任,謝謝。

 IPoBar  愛PK  愛遊戲  愛online
新手教學 客服中心 站務公告 交換連結 合作提案 關於我們
 
版權所有©ipobar Ltd., All Rights Reserved.
論壇內會員言論僅代表個人觀點,不代表本站同意其說法,本討論區不承擔由該言論所引起的法律責任