Visual basic ile küçük bi yardım..

Novice

0

33 Antalya , Türkiye
90.56 399 1

Visual basic ile küçük bi yardım..

Merhaba arkadaşlar..

vb örenmeye başladımda.. bikaç komut ögrendim e-booklar sayesinde

Private Sub Command2_Click()
End
End Sub

bu kapatıyor

gibi

fakat

açtırmayı bulamadım yardımcı olacak var mı ?

"visual basic 6.0 kullanıyorum"

Private Sub Command1_Click()
C = Shell("rfw.exe", vbNormalFocus)
End Sub

yapıyorum file not found diyor halbuki orda..

Bu konu Rexos tarafından düzenlendi(2008-03-20 20:12, 17 yıl önce)

Axons

Journeyman

13.6

31 Girne , Cyprus
170.07 1470 0

Private Sub Command1_Click()
Shell "C:\Program Files\Ultima Online 2D\rfw.exe"
End Sub

bunu dene

neo75

Novice

0.1

55 Istanbul , Türkiye
79.10 792 0

Dosya yolu belirtmeden nası açtırıcaksın

"c:&จdosya.exe"
gibi yazmalısın.

Kolay gelsin...

@(Axons)
Neden C:\Program Files...yapıosun uo kalsörü için?

Regeditten uo klasörünü rhatlıkla buldurabilirsin.

Axons

Journeyman

13.6

31 Girne , Cyprus
170.07 1470 0

Onu Nasil Yapcaz

Rexos

Novice

0

33 Antalya , Türkiye
90.56 399 1

dosyayı açınca hani msn gibi aşşada küçük sağ en altta küçük ico çıkıo ya onu nasıl yapabilirim ?

ve kapat diyince ultima penceresinide kapatmasını istiyorum çok şey istedim biliyorum ama ögeniyoruz işte...

Private Sub Command1_Click()
Shell "D:\Program Files\Ultima Online 2D\rfw.exe"
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Shell "explorer.exe https://www.rwfuo.com"
End Sub

Private Sub Command4_Click()
Shell "explorer.exe https://www.rwfuo.com"
End Sub

Private Sub Command5_Click()
Shell "explorer.exe https://rwfuo.com/forum/"
End Sub

Private Sub Label1_Click()
Shell "explorer.exe https://www.rwfuo.com"
End Sub

şunları yapabildim axons sayesinde...

Alien

Apprentice

0.9

32 İstanbul/Pendik , Türkiye
102.19 772 0

Private Sub Commandx_Click()
xxxx.exe
End
End Sub

Rexos

Novice

0

33 Antalya , Türkiye
90.56 399 1

Close ile olucak onu anladım çünki close yazınca bug yaratmıyor close Close "rfw.exe" falan denedimde olmuyor.

Axons

Journeyman

13.6

31 Girne , Cyprus
170.07 1470 0

Private Sub Cik_Click()
On Error Resume Next
If ProgrammeIsRunning("rfw.exe") Then
KillProgramme ("rfw.exe")
Kill "rfw.exe"
End If
Unload Me
End
End Sub

Olmazsa Da Modul Eklicez

Charlish

Neophyte

0.9

36 Istanbul , Türkiye
46.40 445 0

Uzun zaman önce bırakmıştım ama Ali3n in yazdığı yanlış gibi :O_o

Ayrıca , bir dosya açmanız için aşağıdaki komut yeterli olacaktır .

Private Sub Command1_Click()
Call Shell("clientismi.exe", 1)
End Sub

Dosyayı açacağınız yerin oraya yaptığınız vb dosyasını atarsanız problem kalmaz. Ayrıca c:/ d:/ultima online gibi dizinler belirtirseniz bazı kullanıcılarda o dizinler olmayabilir , bu yüzden sıkıntı yaşıyabilirsiniz.

Veya, yaptığınız programın içine gömmeniz daha yararlı olabilir. Gömmeden önce assembly ile şifrelemezseniz çok rahat çıkartıp kullanabilirler.

Eğer assembly bilmiyorsanız şöyle yapın;

Clientin ismini ve uzatmasını sallıyorum "woice.ocx" yapıp res editor ile Vb formunun içine gömmeniz ve onu kullanıcıların çalıştırabileceği şekilde ayarlamanız yeterli olacaktır.

RES Editor Tools menüsünde bulunur. Eğer yoksa Add-Ins menüsünden Add-In Manager komutunu çalıştırın. Karşınıza gelen pencerede VB 6 Resource Editor satırına tıklayın ve Loaded konumuna geçirin. Tamam deyip pencereyi kapatın. Tools menusundan ya da Araç Çubuğundan RES Editörünü çalıştırın.

RES Editör penceresinde araç çubuğundan Add Custom Resource komutunu verin. Hangi dosyayı EXE&裟nizin içine gömmek istiyorsanız RES dosyasına ekleyiniz. RES Dosyanızı kaydedin.

Formunuzun üzerine Command1 adlı bir düğme yerleştirin. Bunun Click olayına aşağıdaki kodu ekleyin.

Private Sub Command1_Click() 
  Dim resbytes() As Byte 
  resbytes = LoadResData(101, "CUSTOM") 
  Dim no As Byte 
  no = FreeFile 
  Open App.Path & "\woice.ocx" For Binary As #no 
    Put #no, , resbytes 
  Close #no 
  Shell App.Path & "\woice.ocx", vbNormalFocus 
End Sub

Rexos

Novice

0

33 Antalya , Türkiye
90.56 399 1

Private Sub Cik_Click()
On Error Resume Next
If ProgrammeIsRunning("rfw.exe") Then
KillProgramme ("rfw.exe")
Kill "rfw.exe"
End If
Unload Me
End
End Sub bu olmuo dierine bakıyorum

Private Sub Command1_Click()
Call Shell("clientismi.exe", 1)
End Sub buda olmuyor