How to use VB6 to automatically connect to the Internet, how to use VB6 to develop a set of software

What kind of network is connected? It's not clear.

You are going to have VB autodial up the Internet.

Or automatically on a certain **.

Or is it something else?

It's simple, just look for me in private.

dim url as string

Continue running after hitting an error.

on error resume next

if = "" then

msgbox "Please enter the search keyword first! ", ,"Mistake! ": exit sub

end if

Add a text with the assumption that text1 (acts temporarily).

Add a text, let's say text2 (for output), with its multiline property set to true

scrollbals to 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 "ENDS"

exit do

y = instr(, "

end if

i = yloop

end sub

This is impossible, don't dream about it, the cracker can disassemble your software, so that the software is not verified on your **.

You might as well make it simpler. Even if you want to do it, it's terrible to do it with VB.

It's the same as the anti-breaking method I plan.,Although it's not safe.,But it's still very good.,VB is achievable.,As long as you cooperate with ASP, you can also judge whether the authorization is multi-useful.,Let's discuss it together,

It's almost impossible to completely prevent cracking!

This one is definitely okay.,The one that doesn't require much.,You don't want to run the team memory and graphics card requirements are high.。

excel_ filename:=

Interpret the latest version.

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

*Open the worksheet***

set xls = new

trueset xlbook =

*Write Content***

dim i as integer

i = 3 'i control line.

dim j as integer 'jControl column dim countpage as integercountpage = 0'Control page.

do while not rst_

18 'Control the row height.

for j = 1 to 10

j) =rst_ 'Writes the first field of a record in the Engineering Library to the worksheet.

next every 18 lines of one page, if the data exceeds one page for special processing if i > 18 then

down:=1 'The content of the active window scrolls down 1 line End If

if i mod 18 = 0 then

if countpage = 0 then, 1), 10)).= xlcontinuous 'The front page is bordered.

else + countpage - 1) *18, 1), 10)).= xlcontinuous 'Middle page with borders.

end if

i = i + 2 'Add a blank line.

Use VB6 to enter ** with Excel

excel_ filename:=

Interpret the latest version.

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

*Open the worksheet***

set xls = new

trueset xlbook =

*Write Content***

dim i as integer

i = 3 'i control line.

dim j as integer 'jControl column dim countpage as integercountpage = 0'Control page.

do while not rst_

18 'Control the row height.

for j = 1 to 10

j) =rst_ 'Writes the first field of a record in the Engineering Library to the worksheet.

next every 18 lines of one page, if the data exceeds one page for special processing if i > 18 then

down:=1 'The content of the active window scrolls down 1 line End If

if i mod 18 = 0 then

if countpage = 0 then, 1), 10)).= xlcontinuous 'The front page is bordered.

else + countpage - 1) *18, 1), 10)).= xlcontinuous 'Middle page with borders.

end if

i = i + 2 'Add a blank line.

Take the trouble to buy a book on the use of this aspect and then study it yourself.

This question is a bit esoteric, and your score is too low! I can only teach you the easiest way, learn to make software and learn to modify other people's **!

The shell can call the dos command, and the ren is the dos command that can be renamed! As follows: shell" /f ren c:ame1 name2"

It's not a difficult question, it's useless for you to ask like this, you buy a VB6 and VC++ book, see the end from beginning to end, and do all the example exercises in the book, and you can basically use it to work. If you don't understand any specific problems and ask them again, the effect is much better!