Advertising
Navigation
Information

GTA 4 Tools

:

Creating your own mods

Handling Editor


Autor: Paul Jay (Paulo Barca)
Datum: 02.07.2012
Downloads: 31104 | Statistiken
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: [email protected]

Advertising
Download
Werbung
Melden
Mod Report

Bist du der Autor dieser Modifications? Falls jemand deine Mod geklaut hat, kannst du diesen Mod melden und einen Antrag auf Löschung stellen.

Diese Mod melden

Screenshots
Videos
Ein Youtube Video hinzufügen

10 Kommentare bisher
Dein Name/Nick:


Deine Message:


reload, if the code cannot be seen

Hinweis:
Du musst registriert und eingeloggt sein, um Kommentare zu posten.
bobby111wwr
"Vic"
Vic
Comments: 0
Profile
Message
07.07.2012, 09:25

password plz................


RequiemKarga
"Vic"
Vic
Comments: 0
Profile
Message
12.07.2012, 08:11

şifreeeeeeeeeeeeeeee


RequiemKarga
"Vic"
Vic
Comments: 0
Profile
Message
12.07.2012, 08:11

şifreeeeeeeeeeeeeeee


RequiemKarga
"Vic"
Vic
Comments: 0
Profile
Message
12.07.2012, 08:12

gtainside.com şifreymiş fotodan gördüm .d


RequiemKarga
"Vic"
Vic
Comments: 0
Profile
Message
12.07.2012, 08:13

gtainside.com şifreymiş fotodan gördüm .d


spacekees
"Vic"
Vic
Comments: 0
Profile
Message
14.09.2012, 15:41

where is the password???

may i have the pasword plz?


spacekees
"Vic"
Vic
Comments: 0
Profile
Message
14.09.2012, 15:46

lol i got it didnt know the pasword is in rar file :)


jb183
"Vic"
Vic
Comments: 0
Profile
Message
20.01.2013, 06:03

DOES NOT WORK


Ardian89
"Vic"
Vic
Comments: 0
Profile
Message
16.02.2013, 14: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("SOFTWARERockstar GamesGrand Theft Auto IV").GetValue("InstallFolder"))
Me.Button3.Enabled = False
Me.ComboBox1.Enabled = False
Me.TabControl1.Enabled = True
Dim reader As New StreamReader((str6 & "commondatahandling.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


Ardian89
"Vic"
Vic
Comments: 0
Profile
Message
16.02.2013, 14:13

and pw is : gtainside.com