oh be geç oldu ama güç olmadı :p Öncelikte teşekkur ediyorum.Artık ümidimi kesmiştim.Şimdi benim burda tam olarak ne yapmam lazım bir zahmet tarif edebilirmisiniz.Birde hazır yakalamışken ufak birşeydaha sormak istiyorum.
Private Sub Command1_Click()
On Local Error GoTo hata
Dim X
X = Shell("C:\Program Files\Ultima Online 2D\Osman Client.exe", 1)
Exit Sub
hata:
On Local Error GoTo hata2
Dim Y
Y = Shell("C:\Program Files\Ultima Online\Osman Client.exe", 1)
Exit Sub
hata2:
On Local Error GoTo hata3
Dim Z
Z= Shell("D:\Program Files\Ultima Online\Osman Client.exe", 1)
Exit Sub
hata3:
.
.
.
.
.
.
.
.
.
.
On Local Error GoTo hata25
Dim Z
Z= Shell("D:\Program Files\ultimam\Ultima Online\Osman Client.exe", 1)
Exit Sub
hata25:
MsgBox ("Program çalıştırılamadı Clientin bazı dosyaları kayıp olabilir")
Exit Sub
End Sub
Private Sub Command2_Click()
End
End Sub
Şimdi burda sağdece ultima online 2d de için bir hedef vardı hataya başka bir konum yazarak bunun olasıklarını geliştirdim.Yani adam uoyu başka bir yere kurmuş olamazmı misali fakat bunun bir hamballık olduğunu gordum.Yaklaşık binlerce kombinasyon oluşabilir.Bunun yerine ultima online'yi kendi tanıyacağı ve ordaki Osman client.exe'yi çalıştırabilceği daha kapsamlı bir komut yokmudur?
ühühüh tmm odur seni mi kıracaz ![Nemesis[Berk]](datas/avatars/24903-avatar.gif){kind=avatar}