thx banget atas masukan dari temen2 smuanya.
sorry, di script saya sebelumnya ada kesalahan
dim a as boolean
seharusnya :
dim a as double
sebenarnya saya bukan mempermasalah kan fungsi shell(..) nya, memang di script
saya sebelumnya shell(..saya tidak tuliskan secara jelas).
dan saya juga bukan bertanya mengenai cara register,
tapi yang saya tanyakan adalah, bagaimana saya bisa tahu, bahwa file yang saya
register itu "success" atau "failed"
karena kalau kita menggunakan fungsi regsvr32 dari windows, dan di jalankan via
vb6, jika kita silent dengan menggunakan /s, maka kita tidak akan tau, apakah
dia berhasil atau tidak. jika tidak di silent pun, saya tidak bisa mengambil
nilai yang di berikan oleh windows berupa pop up.
nah, ini yang saya mau tanyakan.
atau paling simple mungkin seperti ini,
kalau kita klik start-run, kemudian ketik regsvr32 "path\namafile.dll"
maka windows akan munculkan pop up berupa hasil nya success atau failed.
nah, adakah yang bisa mengambil nilai tersebut?
saya sangat membutuhkan nilai tersebut. apakah berhasil di register atau tidak.
Thx sebelumnya, dan maaf juga kalau isi post ini kepanjangan :D
mohon pencerahan dari temen2 sekalian...
Arief Wibowo <[EMAIL PROTECTED]> wrote: ===
BEGIN ARIEFWT'S POSTING ===
Kalo untuk melakukan register berkas kontrol (DLL/OCX), gunakan tool
RegSvr32 (biasanya ada di %system32%\regsvr32.exe).
Coba mas gunakan kode ini.
'=== BEGIN CODE - COPY FROM HERE ===
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,
ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Ret = ShellExecute(0, vbNullString,
"C:\WINDOWS\system32\regsvr32.exe", "namafile.dll",
"C:\WINDOWS\system32\", vbNormalFocus)
End Sub
'powered by Arief Softwares Lab ([EMAIL PROTECTED])
'=== END CODE - COPY UNTIL HERE ===
Sebenarnya dengan fungsi API, VB dapat melakukan register server tanpa
perlu regsvr32. Tapi akan lebih panjang dari yang di atas, jadi tidak
saya sertakan. Kalau mas berminat, boleh kirim email ke saya... :-)
=== END ARIEFWT'S POSTING ===
Catatan:
* Semoga posting di atas dapat bermanfaat secara positif bagi kita semua
* Kalau ada pertanyaan, silahkan hubungi saya di [EMAIL PROTECTED]
* Mohon maaf sebesar-besarnya apabila ada kata-kata yang kurang
berkenaan di hati Anda
Salam,
(Arief Wibowo, C.Hts, RM)
Computer Programmer and Alternative Therapist
Medan, 24 Maret 2007dddddd|0)
--- In [email protected], develop <[EMAIL PROTECTED]> wrote:
>
> Ada yang bisa tolong bantuin saya gak?
>
>
> saya mau dapatin hasil execute dari function
>
> dim a as boolean
>
> a=shell("namafile.dll")
>
> tapi nilai a yang saya dapat tidak bisa menunjukan apakah berhasil
di register atau tidak.
>
> ada yang bisa tolongin???
>
> thx banget sebelumnya...
>
> Andy.
>
>
>
>
> ---------------------------------
> Sucker-punch spam with award-winning protection.
> Try the free Yahoo! Mail Beta.
>
---------------------------------
Expecting? Get great news right away with email Auto-Check.
Try the Yahoo! Mail Beta.
