如何使用VB6自動連線Internet,如何使用VB6開發一套需要Internet訪問才能執行的軟體

發布 科技 2024-06-15
12個回答
  1. 匿名使用者2024-02-12

    連線了什麼樣的網路? 目前尚不清楚。

    您將讓 VB 自動撥號 Internet。

    或者自動在某個**上。

    還是別的什麼?

    很簡單,私下找我就行了。

  2. 匿名使用者2024-02-11

    dim url as string

    遇到錯誤後繼續執行。

    on error resume next

    if = "" then

    msgbox "請先輸入搜尋關鍵字! ", ,"錯誤! ": exit sub

    end if

    新增乙個文字,並假設 text1(臨時操作)。

    新增乙個文字,比如說 text2(用於輸出),其 multiline 屬性設定為 true

    滾動到 2

    private sub command1_click()

    set xmlhttp1 = createobject("")

    get", "", true

    while <>4

    doevents

    set xmlhttp1 = nothing

    i = "1"

    doa = ""

    instr(i, ,a)

    if = 0 then

    msgbox "結束"

    exit do

    y = instr(, "

    end if

    i = yloop

    end sub

  3. 匿名使用者2024-02-10

    這是不可能的,別做夢了,破解者可以拆解你的軟體,這樣軟體就不會在你的**上驗證。

    你不妨讓它更簡單。 即使你想這樣做,用 VB 做也是很糟糕的。

  4. 匿名使用者2024-02-09

    和我規劃的防破解方法一樣,雖然不安全,但是還是很不錯的,VB是可以實現的,只要配合ASP也可以判斷授權是否多用,我們一起來討論一下,

  5. 匿名使用者2024-02-08

    幾乎不可能完全防止開裂!

  6. 匿名使用者2024-02-07

    這個絕對沒問題,要求不高的那個,你不想跑團隊記憶體和顯示卡要求都很高。

  7. 匿名使用者2024-02-06

    excel_ filename:=

    解釋最新版本。

    if val(excel_ >8 thenset excel_sheet = excel_else set excel_sheet = excel_append if

    *開啟工作表***

    set xls = new

    trueset xlbook =

    *寫內容***

    dim i as integer

    i = 3 '我控制線。

    dim j as integer 'jControl 列 dim countpage 為 integercountpage = 0'控制頁面。

    do while not rst_

    18 '控制行高。

    for j = 1 to 10

    j) =rst_ '將“工程庫”中記錄的第乙個字段寫入工作表。

    接下來每 18 行一頁,如果資料超過一頁進行特殊處理,如果我> 18 然後

    down:=1 '活動視窗的內容向下滾動 1 行 結束 如果

    if i mod 18 = 0 then

    if countpage = 0 then, 1), 10)).= xlcontinuous '首頁有邊框。

    else + countpage - 1) *18, 1), 10)).= xlcontinuous '帶邊框的中間頁。

    end if

    i = i + 2 '新增乙個空行。

  8. 匿名使用者2024-02-05

    使用 VB6 在 Excel 中輸入 **

    excel_ filename:=

    解釋最新版本。

    if val(excel_ >8 thenset excel_sheet = excel_else set excel_sheet = excel_append if

    *開啟工作表***

    set xls = new

    trueset xlbook =

    *寫內容***

    dim i as integer

    i = 3 '我控制線。

    dim j as integer 'jControl 列 dim countpage 為 integercountpage = 0'控制頁面。

    do while not rst_

    18 '控制行高。

    for j = 1 to 10

    j) =rst_ '將“工程庫”中記錄的第乙個字段寫入工作表。

    接下來每 18 行一頁,如果資料超過一頁進行特殊處理,如果我> 18 然後

    down:=1 '活動視窗的內容向下滾動 1 行 結束 如果

    if i mod 18 = 0 then

    if countpage = 0 then, 1), 10)).= xlcontinuous '首頁有邊框。

    else + countpage - 1) *18, 1), 10)).= xlcontinuous '帶邊框的中間頁。

    end if

    i = i + 2 '新增乙個空行。

  9. 匿名使用者2024-02-04

    不厭其煩地買一本關於這方面使用的書,然後自己研究。

  10. 匿名使用者2024-02-03

    這個問題有點深奧,你的分數太低了! 我只能教你最簡單的方法,學會做軟體,學會修改別人的**!

  11. 匿名使用者2024-02-02

    shell 可以呼叫 dos 命令,任 是可以重新命名的 dos 命令! 如下圖:shell" /f ren c:ame1 name2"

  12. 匿名使用者2024-02-01

    這不是乙個難的問題,你這樣問也沒用,你買了一本VB6和VC++的書,從頭到尾看到結尾,把書裡所有的示例練習都做完,基本可以用它來工作。 如果對任何具體問題都不了解,再問一遍,效果就好多了!

相關回答
31個回答2024-06-15

在 Windows 窗體中,實現 Ctrl+Enter=OK 有兩個步驟: >>>More

16個回答2024-06-15

win7 下只能使用 hook API,但 vb6 hookapi 不容易實現。 >>>More

7個回答2024-06-15

這裡有乙個想法。 1.獲取所有 IE 視窗。

3.確定它是否以 http: 開頭,如果是,請獲取它。 >>>More

25個回答2024-06-15

dim xlbook as

dim xlsheet as >>>More

12個回答2024-06-15

抄襲此答案的朋友,請尊重自己!!