2193 User online
Mod DB
Neuste Mods
Featured Mods
Upload
Videos
Tutorials
FAQ
Suche
 

Information

GTA IV Tools: Erstellen von eigenen Mods

Handling Editor


Autor: Paul Jay (Paulo Barca) | Email
Datum: 02.07.2012 | 19042 Downloads
Dateigröße: 0.157 MB

Bewertung:
5.71 bei 309 Bewertungen

With this Handling Editor now is super easy to change value's on your GTA IV car's.

You are free to make a Donation for my work.

I can send the VB.NET Source with a simple Donation.

Contact me on my mail: paulobarca_7@hotmail.com
Download
Werbung
Favoriten
Hier hast du die Möglichkeit, diesen Mod zu deinen persönlichen Favoriten hinzuzufügen.
Werbung
Meldung
Bist du der Autor dieser Modifications? Falls jemand deine Mod geklaut hat, kannst du diesen Mod melden und einen Antrag auf Löschung stellen.
Screenshots
Handling Editor

Videos
Neues
Video hinzufügen.


Kommentare | 10 Beiträge bisher
Dein Nickname:


Deine Nachricht:


Smileys:



Achtung:
Du musst registriert und eingeloggt sein, um Kommentare zu posten!
Ardian89
"Neuling"
Neuling
Kommentare: 2
Profil
Private Nachricht
16.02.2013, 15:13

and pw is : gtainside.com
Zitieren |
(0 likes)
Ardian89
"Neuling"
Neuling
Kommentare: 2
Profil
Private Nachricht
16.02.2013, 15:12

I've seen you code it's simpe... nobodys want buy your gaycode here is it : Dim str6 As String = Conversions.ToString(Registry.LocalMachine.OpenSubKey("SOFTWARE\Rockstar Games\Grand Theft Auto IV").GetValue("InstallFolder"))
Me.Button3.Enabled = False
Me.ComboBox1.Enabled = False
Me.TabControl1.Enabled = True
Dim reader As New StreamReader((str6 & "\common\data\handling.dat"))
Me.TextBox1.Text = ""
Do While (reader.Peek <> -1)
Dim str2 As String = reader.ReadLine
If str2.Contains(Me.ComboBox1.Text) Then
Me.TextoOriginal.Text = str2
Exit Do
End If
Loop
Me.TextBox.Text = ""
Dim str As String = ""
Me.TextBox0.Text = str
Me.TextBox1.Text = str
Me.TextBox2.Text = str
Me.TextBox3.Text = str
Me.TextBox4.Text = str
Me.TextBox5.Text = str
Me.TextBox6.Text = str
Me.TextBox7.Text = str
Me.TextBox8.Text = str
Me.TextBox9.Text = str
Me.TextBox10.Text = str
Me.TextBox11.Text = str
Me.TextBox12.Text = str
Me.TextBox13.Text = str
Me.TextBox14.Text = str
Me.TextBox15.Text = str
Me.TextBox16.Text = str
Me.TextBox17.Text = str
Me.TextBox18.Text = str
Me.TextBox19.Text = str
Me.TextBox20.Text = str
Me.TextBox21.Text = str
Me.TextBox22.Text = str
Me.TextBox23.Text = str
Me.TextBox24.Text = str
Me.TextBox25.Text = str
Me.TextBox26.Text = str
Me.TextBox27.Text = str
Me.TextBox28.Text = str
Me.TextBox29.Text = str
Me.TextBox30.Text = str
Me.TextBox31.Text = str
Me.TextBox32.Text = str
Me.TextBox33.Text = str
Me.TextBox34.Text = str
Me.TextBox35.Text = str
Me.TextBox36.Text = str
Me.ExportTXT.Text = str
Dim array As String() = Me.TextoOriginal.Text.Split(New Char() { ChrW(9) })
Dim num3 As Integer = Information.UBound(array, 1)
Dim i As Integer = 0
Do While (i <= num3)
Me.TextBox.Text = (Me.TextBox.Text & array(i) & " ")
i += 1
Loop
Dim text As String = Me.TextBox.Text
Do While [text].Contains(" ")
If [text].Contains(" ") Then
Do While [text].Contains(" ")
[text] = [text].Replace(" ", " ")
Loop
End If
If [text].Contains(" ") Then
Do While [text].Contains(" ")
[text] = [text].Replace(" ", " ")
Loop
End If
If [text].Contains(" ") Then
Do While [text].Contains(" ")
[text] = [text].Replace(" ", " ")
Loop
End If
If [text].Contains(" ") Then
Do While [text].Contains(" ")
[text] = [text].Replace(" ", " ")
Loop
End If
Loop
Me.TextBox.Text = Strings.Trim([text])
Dim strArray As String() = Me.TextBox.Text.Split(New Char() { " "c })
Dim num4 As Integer = Information.UBound(strArray, 1)
Dim j As Integer = 0
Do While (j <= num4)
Me.TextBox0.Text = strArray(0)
Me.TextBox1.Text = strArray(1)
Me.TextBox2.Text = strArray(2)
Me.TextBox3.Text = strArray(3)
Me.TextBox4.Text = strArray(4)
Me.TextBox5.Text = strArray(5)
Me.TextBox6.Text = strArray(6)
Me.TextBox7.Text = strArray(7)
Me.TextBox8.Text = strArray(8)
Me.TextBox9.Text = strArray(9)
Me.TextBox10.Text = strArray(10)
Me.TextBox11.Text = strArray(11)
Me.TextBox12.Text = strArray(12)
Me.TextBox13.Text = strArray(13)
Me.TextBox14.Text = strArray(14)
Me.TextBox15.Text = strArray(15)
Me.TextBox16.Text = strArray(&H10)
Me.TextBox17.Text = strArray(&H11)
Me.TextBox18.Text = strArray(&H12)
Me.TextBox19.Text = strArray(&H13)
Me.TextBox20.Text = strArray(20)
Me.TextBox21.Text = strArray(&H15)
Me.TextBox22.Text = strArray(&H16)
Me.TextBox23.Text = strArray(&H17)
Me.TextBox24.Text = strArray(&H18)
Me.TextBox25.Text = strArray(&H19)
Me.TextBox26.Text = strArray(&H1A)
Me.TextBox27.Text = strArray(&H1B)
Me.TextBox28.Text = strArray(&H1C)
Me.TextBox29.Text = strArray(&H1D)
Me.TextBox30.Text = strArray(30)
Me.TextBox31.Text = strArray(&H1F)
Me.TextBox32.Text = strArray(&H20)
Me.TextBox33.Text = strArray(&H21)
Me.TextBox34.Text = strArray(&H22)
Me.TextBox35.Text = strArray(&H23)
Me.TextBox36.Text = strArray(&H24)
j += 1
Loop
Me.Label2.Text = "Data Loaded"
Me.Timer1.Enabled = True
End Sub
Zitieren |
(0 likes)
jb183
"Neuling"
Neuling
Kommentare: 2
Profil
Private Nachricht
20.01.2013, 07:03

DOES NOT WORK
Zitieren |
(0 likes)
spacekees
"Neuling"
Neuling
Kommentare: 2
Profil
Private Nachricht
14.09.2012, 17:46

lol i got it didnt know the pasword is in rar file :)
Zitieren |
(0 likes)
spacekees
"Neuling"
Neuling
Kommentare: 2
Profil
Private Nachricht
14.09.2012, 17:41

where is the password???

may i have the pasword plz?
Zitieren |
(0 likes)
12.07.2012, 10:13

gtainside.com &#351;ifreymi&#351; fotodan gördüm .d
Zitieren |
(0 likes)
12.07.2012, 10:12

gtainside.com &#351;ifreymi&#351; fotodan gördüm .d
Zitieren |
(0 likes)
12.07.2012, 10:11

&#351;ifreeeeeeeeeeeeeeee
Zitieren |
(0 likes)
12.07.2012, 10:11

&#351;ifreeeeeeeeeeeeeeee
Zitieren |
(0 likes)
bobby111wwr
"Neuling"
Neuling
Kommentare: 3
Profil
Private Nachricht
07.07.2012, 11:25

password plz................
Zitieren |
(0 likes)