Kod:
Private Sub el_Click() Select Case el.ListIndex Case 0 cfg.Text = cfg.Text & vbCrLf & "cl_righthand 1" Case 1 cfg.Text = cfg.Text & vbCrLf & "cl_righthand 0" End Select End Sub Private Sub oluştur_Click() cfg.Text = cfg.Text & vbCrLf & "name " & nametxt.Text & vbCrLf & "sensitivity " & sensitivitytxt.Text With aboo67 .DialogTitle = ("Kaydet") .Filter = "Cfg Dosyası (*.cfg)|*.cfg" .FileName = ("Eda") .ShowSave End With Open aboo67.FileName For Append As #1 Print #1, cfg Close #1 End Sub Private Sub recoilpkts_Click() cfg.Text = cfg.Text & vbCrLf & recoilpkt.Text End Sub
İndir ;

http://www.mediafire.com/?zxqhehexrr3hv7n

https://www.virustotal.com/file/042c...is/1334514378
__________________