I-BEGO

Permisi mastah2 disini...numpang tanya donk..
gmna cara menajalankan file *.exe melalui aplikasi yg kita buat?
NB: file *.exe disini juga hasil buatan VB..
contoh :
- Engine1.exe (yg akan dijalankan melalui aplikasi utama)
- Admin.exe (aplikasi utama)

disini aplikasi (Engine.exe) dibuat agar tidak dapat langsung dijalankan dengan cara double clik ataupun enter..


tetapi aplikasi (Engine.exe) hanya dapat dijalankan melalui aplikasi utama (Admin.exe).
dan aplikasi Engine.exe jga dapat di running lebih dari 1 sesuai tulisan di aplikasi utama (Admin.exe)

ada yang berkenan beri perncerahan? tx be4....

Saia kasih contoh aja yach boz, caranya mengoptimalkan parameter aplikasi

Ini ditulis di Admin.exe

Code: Select all

....
            p = App.Path
            If VBA.Right$(p, 1) <> "\" Then p = p & "\"
            p = p & "ARMediaPlayer.exe"
           
            If VBA.Dir(p) <> "" Then
                s = "'-ip:%1% -broadcastport:%2% -id:%3% -state:100"
                s = VBA.Replace(s, "%1%", gy_ServerSetting.IPAddress)
                s = VBA.Replace(s, "%2%", CStr(gy_ServerSetting.VideoBroadcastPort))
                s = VBA.Replace(s, "%3%", gy_StrSchoolIdentity)
               
                ShellExecute gy_MainObj.hwnd, "open", "ARMediaPlayer.exe", s, App.Path, 1
            Else
                MsgBox "File not found." & vbCrLf & vbCrLf & _
                       "File:" & vbTab & "ARMediaPlayer.exe" & vbCrLf & _
                       "Path:" & vbTab & App.Path, vbInformation
            End If
....


Ini ditulis di Engine1.exe (Startup: Main)

Code: Select all

Public Sub Main()
    Dim s As String
       
    gy_IPAddress = vbNullString
    gy_IdAppName = "Araysoft Labs"
    gy_BroadcastPort = 8080
    gy_StatePort = 100
   
    If GetParameters(VBA.Trim$(VBA.Command$)) Then
        Set gy_frmMain = New frmMain
        gy_frmMain.Show
    Else
        MsgBox "The application is not running.", vbCritical
    End If
End Sub


Salam, lewat...

thank om...sya praktekkan...
tpi untuk fungsi "GetParameters" bgmna cara nya ya?

Thank's be4

Kenjitsu wrote::-bd thank om...sya praktekkan...
tpi untuk fungsi "GetParameters" bgmna cara nya ya?

Thank's be4

itu isinya cuma fungsi VBA.Command$

Gyus wrote:itu isinya cuma fungsi VBA.Command$

kalau cuma VBA Command$ berarti file .exe tersebut masih bisa di run secara independen kan Om? lewat Cmd maupun lewat Explorer

Bisa nggak klo misalnya kita buat engine1.exe waktu dijalankan mengecek apakah admin.exe sudah dijalankan atau tidak, klo tidak maka unload.

JBAlia wrote:Bisa nggak klo misalnya kita buat engine1.exe waktu dijalankan mengecek apakah admin.exe sudah dijalankan atau tidak, klo tidak maka unload.

Tidak perlu repot-repot mengecek file Exe pemanggil.

Cara paling praktis dan mudah adalah:
Ketika mendesain "engine.exe", maka buat project nya sebagai "ActiveX EXE".
Jadi nggak perlu repot-repot ngecek induk nya.
Lagi pula dengan activeX exe, file nya bisa berjalan otomatis adalah multi thread, sehingga performance tetap terjaga.

CMIIW

Seruling wrote:

Gyus wrote:itu isinya cuma fungsi VBA.Command$

kalau cuma VBA Command$ berarti file .exe tersebut masih bisa di run secara independen kan Om? lewat Cmd maupun lewat Explorer

Untuk aplikasinya dibuat parameter khusus (hanya anda yg mengetahui) yg dimana jika tidak sesuai maka aplikasi itu tidak berjalan (perhatikan coding fungsi GetParameters jika tidak bernilai TRUE maka tidak diproses/exit). Jika fungsi ini diterapkan seperti itu makan mo dijalankan dimana aja tidak akan terbuka aplikasinya.

bsa tlong minta contoh nya ??

Itu diatas... kode yang dikasih om Gyus udah lengkap tuh...