Follow us on Twitter!
Things are more like they are now than they have ever been before. - Dwight D. Eisenhower
Thursday, April 17, 2014
Navigation
Home
HellBoundHackers Main:
HellBoundHackers Find:
HellBoundHackers Information:
Learn
Communicate
Submit
Shop
Challenges
HellBoundHackers Exploit:
HellBoundHackers Programming:
HellBoundHackers Think:
HellBoundHackers Track:
HellBoundHackers Patch:
HellBoundHackers Other:
HellBoundHackers Need Help?
Other
Members Online
Total Online: 16
Guests Online: 13
Members Online: 3

Registered Members: 82822
Newest Member: TheBunter
Latest Articles
View Thread

HellBound Hackers | Computer General | Programming

Author

Visual Basic 6.0 Help

AldarHawk
Member



Posts: 1690
Location: Canada
Joined: 26.01.06
Rank:
Hacker Level 1
Posted on 12-10-06 14:19
I am attempting to write a program to access a file, look it over to see if a said string exists in it and then append the string to the file if it does not exist.

My main problem is getting VB to run through the entire file.

If you know how to do this please let me know.


Just ask Yahoo!Taboo! http://www.erikwestlake.com
Author

RE: Visual Basic 6.0 Help

AldarHawk
Member



Posts: 1690
Location: Canada
Joined: 26.01.06
Rank:
Hacker Level 1
Posted on 12-10-06 15:02
Got this done.

Now my next challenge...

Anyone who knows how to map network drives let me know.


Just ask Yahoo!Taboo! http://www.erikwestlake.com
Author

RE: Visual Basic 6.0 Help


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 13-10-06 03:00
why not shell a batch file with the net use commmand ?
ex
Code
Open App.Path & "\" & "map.bat" For Output As #1
Print #1, "net use" & " " & "Driveletter here" & " " & "share here"
Print #1, "pause"
Close #1




Code
 then use the shell execute  to open it
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 Form_Load()
ShellExecute Me.hwnd, vbNullString, App.Path & "/map.bat", vbNullString, App.Path, 1
end sub