vb60源碼

『壹』 請問如何用VB獲取網頁源碼

使用Inet控制項獲取網頁源碼。

Internet Transfer 控制項實現了兩種廣泛使用的 Internet 協議： 超文本傳送協議（HyperText Transfer
Protocol）(HTTP) 和文件傳送協議（File Transfer Protocol） (FTP)。使用 Internet Transfer
控制項可以通過 OpenURL 或 Execute 方法連接到任何使用這兩個協議的站點並檢索文件。

PrivateSubCommand1_Click()
DimstrhtmlAsString
DimSTRURLAsString
STRURL="http://www..com"
strhtml=Inet1.OpenURL(STRURL)
Text1=strhtml
EndSub

『貳』 用vb編寫60進制計算器

此題關鍵是10進制與60進制數的轉換。
第一步：不妨用0－9用相應的數字代表，abcdefghijklmnopqrstuvwxyz代表10－35，ABCDEFGH（去掉I）JKLMN（去掉O）PQRSTUVWXYZ代表36－埋帆粗59。
第二步：10進制數與60進制數的轉換程序
第三步：本程序只做了加法，你可以試著做減法或乘除法。

Dim Sixty(60) As String

Private Function TtoS(X As Double) As String
Dim TS_1 As Long '整數部分
Dim TS_2 As Single '小數彎鎮部分
Dim TS_3 As Integer '用十進制數表示一位60進制數
Dim TS_4 As Integer '循環變數
TS_1 = Int(X)
TS_2 = X - TS_1
Do While TS_1 >轎棚 0
TS_3 = TS_1 Mod 60
TS_1 = TS_1 \ 60
TtoS = Sixty(TS_3) & TtoS
Loop
If TtoS = "" Then TtoS = "0"
If TS_2 > 10 ^ -5 Then
TtoS = TtoS & "."
Do While TS_2 > 10 ^ -5 And TS_4 < 5
TS_4 = TS_4 + 1
TS_3 = Int(TS_2 * 60)
TS_2 = TS_2 * 60 - TS_3
TtoS = TtoS & Sixty(TS_3)
Loop
End If
End Function

Private Function StoT(X As String) As Double
Dim ST_1 As String '整數部分
Dim ST_2 As String '小數部分
Dim ST_3 As Integer '循環變數
Dim ST_4 As Integer '循環變數和臨時記錄
ST_4 = InStr(X, ".")
If ST_4 = 0 Then
ST_1 = X
Else
ST_1 = Left(X, ST_4 - 1)
ST_2 = Right(X, Len(X) - ST_4)
End If
For ST_4 = 1 To Len(ST_1)
For ST_3 = 0 To 59
If Mid(ST_1, Len(ST_1) - ST_4 + 1, 1) = Sixty(ST_3) Then Exit For
Next
StoT = StoT + ST_3 * 60 ^ (ST_4 - 1)
Next
For ST_4 = 1 To Len(ST_2)
For ST_3 = 0 To 59
If Mid(ST_2, ST_4, 1) = Sixty(ST_3) Then Exit For
Next
StoT = StoT + ST_3 / (60 ^ ST_4)
Next
End Function

Private Sub Command1_Click()
Dim A As String, B As String
A = InputBox("請輸入第一個數", "輸入", "BHa.7mN02")
B = InputBox("請輸入第二個數", "輸入", "aBi7.3N")
Text1.Text = A & "+" & B & "=" & TtoS(StoT(A) + StoT(B))
End Sub

Private Sub Form_Load()
Dim I As Integer
For I = 0 To 59
Select Case I
Case Is < 10
Sixty(I) = I
Case 10 To 35
Sixty(I) = Chr(87 + I)
Case 36 To 43
Sixty(I) = Chr(29 + I)
Case 44 To 48
Sixty(I) = Chr(30 + I)
Case 49 To 59
Sixty(I) = Chr(31 + I)
End Select
Next
End Sub

『叄』 如何把VB6.0工程轉換至Visual Studio 2013的工程（暫不考慮源代碼的轉換）

VB60 首先轉換為 VB2005 然後才能漏輪冊轉換為 VB2008(或VB2010或VB2013)，因為只有VB2005有將VB6.0升級到VB2005的功能，桐衡其他程序VB版本沒有，但VB2008、VB2010、VB2013都能夠兼容VB2005。
轉換後，界面基本變化不太大，但代碼很多需要在轉換後的VB程返宏序中重新編輯。

『肆』 VB如何通過工程查看源代碼，如圖，這個樣子的

如果這個程序帶工程文件，你找到.vbp文件雙擊打開，然後在各窗體雙擊查看代碼。
如果沒有工程文件，你可以自己建一個工程文件，然兄凱後把這些窗體文件加入。
如果不想建你可以直接雙擊某個窗體文件，胡談也能打開，打開後雙擊窗體，可以看到代碼。褲塵碰

『伍』 高中VB編程的一些源代碼

uEnd是用戶定義捕捉VB輸出框(MsgBox)按下按鈕事件一個變數.即你的原代碼 MsgBox "您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序"
執行按vbYes或vbNo按鈕的結果參數值返回給程序以便執行下一代碼.當然你不用這變數也能做到,但按鈕需按兩次:
Private Sub Command2_Click()
MsgBox "您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序"
If MsgBox("您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序") = vbYes Then
End
End If
End Sub

uEnd = MsgBox("您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序")
上句代碼實際上可看作VB輸出框執行結果賦值於uEnd, = 號在VB6.0中本身就應該看為賦值號.而且程序代碼簡潔明了,不易寫錯.

下面參考MSDN的有關MsgBox說明:
MsgBox 函數
在對話框中顯示消息，等待用戶單擊按鈕，並返回一個 Integer 告訴用戶單擊哪一個按鈕。

MsgBox 函數示例
本示例使用 MsgBox 函數，在具有「是」及「否」按鈕的對話框中顯示一條嚴重錯誤信息。示例中的預設按鈕為「否」，MsgBox 函數的返回值視用戶按哪一個鈕而定。本示例假設 DEMO.HLP 為一幫助文件，其中有一個內容代碼為 1000。

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' 定義信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定義按鈕。
Title = "MsgBox Demonstration" ' 定義標題。
Help = "DEMO.HLP" ' 定義幫助文件。
Ctxt = 1000 ' 定義標題
' 上下文。
' 顯示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用戶按下「是」。
MyString = "Yes" ' 完成某操作。
Else ' 用戶按下「否」。
MyString = "No" ' 完成某操作。
End If

感謝你發的短消息!

該回答在由回答者修改過

『陸』 vb 6.0 XMLHTTP獲取網頁源代碼 不完整

還有這種事呀！
應該是<>4這句，提前用exit function退出了

『柒』 VB 獲取網頁源碼 你的這個是怎麼解決的.能和我說一下嗎.謝謝

1、提取：用這個vb小程序可以！