
| Category: | /Tools/Tools to create new cars, maps, mods etc. |
| Title: | Handling Editor |
| Author: | Paul Jay (Paulo Barca) |
| Author Email: | paulobarca_7@hotmail.com |
| Date: | 02.07.2012 |
| Downloads: | 10205 |
| Filesize: | 0.157 MB |
| Rating: | 5.63 based on 298 votes
|
| Description: | 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 |
Screenshots:
Show
Videos:
Click here to add a new video.
back to category| bobby111wwr wrote on 07.07.2012, 11:25 |
password plz................ |
| RequiemKarga wrote on 12.07.2012, 10:11 |
şifreeeeeeeeeeeeeeee |
| RequiemKarga wrote on 12.07.2012, 10:11 |
şifreeeeeeeeeeeeeeee |
| RequiemKarga wrote on 12.07.2012, 10:12 |
gtainside.com şifreymiş fotodan gördüm .d |
| RequiemKarga wrote on 12.07.2012, 10:13 |
gtainside.com şifreymiş fotodan gördüm .d |
| spacekees wrote on 14.09.2012, 17:41 |
where is the password??? may i have the pasword plz? |
| spacekees wrote on 14.09.2012, 17:46 |
lol i got it didnt know the pasword is in rar file :) |
| jb183 wrote on 20.01.2013, 07:03 |
DOES NOT WORK |
| Ardian89 wrote on 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 |
| Ardian89 wrote on 16.02.2013, 15:13 |
and pw is : gtainside.com |












