[help] Text File

Ok listenn buddy... This rtrd online updator wont work here.. is my code.

Code:

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 Sub cmdDownload_Click()
WB.Navigate ("http://metherockers.googlepages.com/home/DGClient.zip")
End Sub
Private Sub Form_Load()
 lblVersion.Caption = "Current version is " & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Public Sub GetVersionNumber()
Dim bytes() As Byte
Dim fnum As Integer
Screen.MousePointer = vbHourglass
DoEvents
bytes() = Inet1.OpenURL( _
"http://metherockers.googlepages.com/home/Version.txt", icByteArray)
fnum = FreeFile
Open "c:\Version.txt" For Binary Access Write As #fnum
Put #fnum, , bytes()
Close #fnum
Screen.MousePointer = vbDefault
Beep
End Sub
Public Sub OpenVersionNumber()
rtfVersion.LoadFile "c:\Version.txt"
End Sub
Private Sub cmdCheckNow_Click()
GetVersionNumber
OpenVersionNumber
Kill "c:\version.txt"      <--Ya i even put the file version.txt in the c:\ place
End Sub

Whats wrong?

 

Code:

Private Sub Form_Load()
If Inet1.OpenURL("http://metherockers.googlepages.com/home/Version.txt") > App.Major & "." & App.Minor & "." & App.Revision Then
wb.Navigate ("http://metherockers.googlepages.com/home/DGClient.zip")
End If
End Sub

The above code is allot simpler and should work perfectly.

 

So i should delete all of my code for that??

 

Yes, you should. It's rancid code.

Why are you downloading a simple string to a textfile? Useless code is useless.


And how can you be a "hacker" if you can't even code properly. I understand that you can be new @ VB, but it still takes less brains to code in VB then it does to properly hack something.

 

hmm well i woulsd like to except for the fact that their is no tutorial which tells you what each thing in vb does... w3schools.com doesnt even have it..

 

You don't understand the code i posted???

Code:

Private Sub Form_Load()
'The below line uses the intet control to check if the text file on your server has a higher version number than your prgram's version.
If Inet1.OpenURL("http://metherockers.googlepages.com/home/Version.txt") > App.Major & "." & App.Minor & "." & App.Revision Then
'If the text file has a bigger number than your program version number then the below code will attempt to download the latest version.
wb.Navigate ("http://metherockers.googlepages.com/home/DGClient.zip")
End If
End Sub

 

Lol of course i do.. I was just saying to jazz. And if you even want, ill tell you what it's about.

Code:

Private Sub Form_Load()
If Inet1.OpenURL("http://metherockers.googlepages.com/home/Version.txt") > The App.Major & "." & App.Minor & "." & App.Revision Then   
wb.Navigate ("http://metherockers.googlepages.com/home/DGClient.zip")
End If
End Sub

Code:

Private Sub Form_Load()

- When the form loads

Code:

If Inet1.OpenURL("http://metherockers.googlepages.com/home/Version.txt") > The App.Major & "." & App.Minor & "." & App.Revision Then 

-inet opens the url

Code:

[url]http://metherockers.googlepages.com/home/Version.txt[/url]
wb.Navigate ("http://metherockers.googlepages.com/home/DGClient.zip")

- the webbrowser navigates to page http://metherockers.googlepages.com/home/DGClient.zip But i dont understand how it downloads the file and checks if it's updated

 

Well, if the text file was updated, then hopefully you'd update the program as well...

 

Are you trying to help? cause your not. And your acting like a deuch bag. May you please EXPLAIN TO ME what I'm supposed to do.

Code:

Private Sub Form_Load()
If Inet1.OpenURL("http://metherockers.googlepages.com/home/Version.txt") > The App.Major & "." & App.Minor & "." & App.Revision Then   
wb.Navigate ("http://metherockers.googlepages.com/home/DGClient.zip")
End If
End Sub

And that code doesn't work for ASS I have other buttons on their which apperently that doesnt work and going friggen crazy.. WHAT THE ASS AM I SUPPOSED TO DO??!?!

 

The code that was given, should be working fine...

 

Dude... seriously... You want people to help you but you just talk to everyone like shit. You are not going get far in life with that attitude. It's not like anyone has to help you, you are probably some smart ass e-thug with no real friends anyway. SO FUCK OFF IF YOU'RE GONNA BE A DICK HEAD ABOUT THIS SHIT!

Now... so this isn't total spam... look at the code before you start being a cock.

Code:

Private Sub Form_Load()
If Inet1.OpenURL("http://metherockers.googlepages.com/home/Version.txt") > [SIZE="4"][b][u]The[/b][/u][/SIZE] App.Major & "." & App.Minor & "." & App.Revision Then   
wb.Navigate ("http://metherockers.googlepages.com/home/DGClient.zip")
End If
End Sub

See the word 'The'? That is not supposed to be there. Also make sure you rename the 'wb.Navigate' to whatever your WebBrowser is called.

Also, not sure on this. But is the .Navigate meant to have brackets?

 

You could start by taking your chill pills regularly and work your way up from there.

 

Lol ok.. Sorry.. And thanks for your help Ill check to see if it works.

 

It's cool. I don't mind helping people who are chilled. You just gotta relax, have a beer and goto sleep. That's what I do when I'm angry.

 

what happens if your under age

 

Make friends with someone who isn't underage.

 

well i am only 2yrs off, unless australia change it to 21

 

i'm guessing your 16? lol anyways... none of the codes you guys gave me worked.. =[

 

correct, i am 16 -.-

 

Probably because

Code:

http://metherockers.googlepages.com/home/Version.txt

is a broken link.