|
| 14 Sep 2006 05:06:04 pm |
 run and wait pid by shell |
|
|
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = -1&
' Start the indicated program and wait for it
' to finish, hiding while we wait.
Private Sub ShellAndWait(ByVal program_name As String, ByVal window_style As VbAppWinStyle)
Dim process_id As Long
Dim process_handle As Long
' Start the program.
On Error GoTo ShellError
process_id = Shell(program_name, window_style)
On Error GoTo 0
' Hide.
Me.Visible = False
DoEvents
' Wait for the program to finish.
' Get the process handle.
process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
If process_handle <> 0 Then
WaitForSingleObject process_handle, INFINITE
CloseHandle process_handle
End If
' Reappear.
Me.Visible = True
Exit Sub
ShellError:
MsgBox "Error starting task " & _
txtProgram.Text & vbCrLf & _
Err.Description, vbOKOnly Or vbExclamation, _
"Error"
End Sub
' Start the program.
' Meng eksekusi conmmand shell
Private Sub cmdRun_Click()
Select Case cboShellStyle.Text
Case "vbHide"
ShellAndWait txtProgram.Text, vbHide
Case "vbMaximizedFocus"
ShellAndWait txtProgram.Text, vbMaximizedFocus
Case "vbMinimizedFocus"
ShellAndWait txtProgram.Text, vbMinimizedFocus
Case "vbMinimizedNoFocus"
ShellAndWait txtProgram.Text, vbMinimizedNoFocus
Case "vbNormalFocus"
ShellAndWait txtProgram.Text, vbNormalFocus
Case "vbNormalNoFocus"
ShellAndWait txtProgram.Text, vbNormalNoFocus
End Select
End Sub
Private Sub Form_Load()
cboShellStyle.ListIndex = 4
End Sub |
|
| |
Category : About Me
| Posted By : admin |  Comments[2] |  Trackbacks [0] |
|
|
| 17 Aug 2006 05:44:14 pm |
| Aku Pada Mu |
|
|
Seseorang yang mencintai kamu.....
Tidak bisa memberi alasan Mengapa ia
mencintaimu...
Dia Hanya tau, di mata dia...kamulah satu-
satunya...
Seseorang yang mencintai kamu...
Sebenarnya Selalu membuatmu
marah/gila/jengkel/stress...
Tapi ia tidak pernah tau hal bodoh apa yang sudah
ia lakukan...
Karena semua yang ia lakukan adalah untuk
kebaikanmu....
Seseorang yang mencintai kamu....
Jarang memujimu,tetapi di dalam hatinya kamu
adalah yang terbaik....Hanya itu yang ia tau....
Seseorang yang mencintai kamu....
akan marah-marah atau mengeluh jika kamu tidak
membalas pesannya atau tlpnya....
Karena ia peduli dan tidak ingin sesuatu terjadi
pada kamu...
Seseorang yang mencintai kamu.....
Hanya menjatuhkan airmatanya di hadapanmu,
dan ketika kamu mencoba menghapus
airmatanya....
Kamu telah menyentuh Hatinya.....
Dimana hatinya selalu
berdegup/berdenyut/bergetar untuk kamu.....
Seseorang yang mencintai kamu....
Akan mengingat setiap kata yang kamu
ucapkan....
Bahkan yang tidak sengaja dan ia akan selalu
menggunakan kata2 itu tepat waktunya.....
Seseorang yang mencintai kamu....
Tidak akan memberikan janji apapun dengan
mudah....Karena ia tidak mau mengingkari janjinya....
Ia ingin kamu untuk mempercayainya....
dan ia ingin memberikan hidup yang paling
bahagia dan aman Selama-lamanya....
Seseorang yang mencintai kamu.....
Mungkin tidak bisa mengingat
kejadian/kesempatan istimewa....
Seperti perayaan Hari ulang tahunmu....
Tapi ia tahu bahwa setiap detik yang ia lalui
Ia mencintai kamu,tidak peduli hari apakah ini....
Seseorang yang mencintai kamu...
Tidak mau berkata "aku mencintaimu" dengan
mudah....
Karena segalanya yang ia lakukan untuk kamu
adalah untuk menunjukkan bahwa ia siap
mencintaimu...
Tetapi hanya ia yang mengatakan I LOVE YOU
pada situasi yang special...
Karena ia tidak mau kamu salah mengerti...
Dia mau kamu mengetahui bahwa ia mencintai
dirimu...
Seseorang yang benar2 mencintai kamu...
Akan merasa bahwa sesuatu harus di katakan
sekali saja...
Karena ia berpikir bahwa kamu telah mengerti
dirinya...
Jika berkata terlalu banyak Ia akan merasa bahwa
tidak ada yang akan membuatnya
bahagia/tersenyum....
Seseorang yang mencintai kamu .....
Akan pergi ke Airport untuk menjemputmu...
Dia tidak akan membawa seikat Mawar dan
memanggilmu sayang seperti yang kamu
harapkan...
Tetapi ia akan membawa kopermu dan
menanyakan mengapa kamu menjadi kurus dalam
waktu 2 hari???
Dengan Hatinya yang tulus....
Seseorang yang mencintaimu...
Tidak tahu apakah ia harus menelponmu ketika
kamu marah...
Tetapi ia akan mengirim pesan setelah beberapa
jam...
Jika kamu menanyakan : Mengapa ia telat
menelpon..?
Ia akan berkata:Ketika kamu marah penyelasan
dariku semua hanyalah sampah.
Tetapi ketika kamu sudah tenang, Penjelasanku
baru akan benar-benar menyejukan hati.
Seseorang yang mencintai kamu...
Akan menyimpan semua benda yang telah kamu
berikan...
Bahkan Kertas kecil bertuliskan I LOVE YOU ada
di dalam dompetnya.
Seseorang yang mencintai kamu...
jarang mengucapkan kata-kata manis
Tapi kamu tau'Kecupanya' sudah menyalurkan
semuanya.
Seseorang yang mencintai kamu...
Akan selalu berusaha membuatmu tersenyum dan
tertawa
walau terkadang caranya membingungkanmu...
Seseorang yang mencintaimu...
Akan membalut hatimu yang pernah terluka dan
menjaganya dengan setulus hati agar tidak terluka
lagi...
Dan ia akan memberikanmu yang terbaik walau
harus menyakiti hatinya sendiri... |
|
| |
Category : About Me
| Posted By : admin | Comments[3] | Trackbacks [1217] |
|
|
| 06 Apr 2006 03:47:01 am |
| KIAT-KIAT SUKSES DALAM PEKERJAAN |
|
|
Kenali diri sendiri dan lingkungannya. Manfaatkanlah kekuatan yang dimiliki, hilangkan kelemahan, gunakan peluang dan hindarkan ancaman yang ada.
Bekerjalah dengan keras dan cerdik. Gunakan kreativitas untuk memperoleh keunggulan bersaing.
Milikilah komitmen yang kuat untuk menjadi pemenang dan jangan mudah putus asa.
Bekerjalah dengan memperhatikan konsep bisnis, indra bisnis, dan suara hati.
Buatlah perencanaan kerja tetapi jangan terlalu kaku dengan rencana tersebut.
Belajarlah dari pengalaman orang lain atau perusahaan lain, dan ikuti perkembangan konsep bisnis.
Berani mengakui kesalahan, dan tidak mengulangi kesalahan yang sama atau yang sudah diketahui.
Berani mengambil resiko, tetapi berusaha mengelola resiko dengan baik.
Komunikasikan pendapat secara rasional dan jangan cari musuh.
Lakukan perbaikan secara terus menerus baik dari sendiri maupun proses kerja di perusahaan.
Lihatlah perubahan sebagai teman bukan sebagai musuh.
Tanggap atas perubahan yang terjadi maupun yang akan terjadi.
Perbesar jaringan bisnis yang ada. Gunakan jaringan yang ada dan perbesar terus. Jaringan ini bukan untuk membentuk kolusi atau nepotisme, tetapi memperbesar peluang dengan cara sehat.
Jangan terlalu sering pimdah kerja atau usaha. Tekunilah apa yang dikerjakan. Dengan menekuni, maka seseorang akan mengenali pekerjaannya dengan baik dan menjadi ahli di bidangnya.
Tingkatkan kemampuan berbahasa asing.
Tingkatkan kemampuan kepemimpinan dan kemampuan interpersonal.
Tingkatkan kemampuan mengambil keputusan dan kemampuan implementasi perubahan yang besar.
Tingkatkan kemampuan mengatasi konflik.
Tingkatkan terus kemampuan keterampilan kecil seperti teknik penyusunan laporan, teknik presentasi, dan teknik negosiasi.
Tingkatkan terus motivasi kerja dan tunjukkan kemampuan untuk berprestasi.
Tingkatkan terus motivasi kerja dan kemampuan bawahan atau kelompok kerja anda.
GOOD LUCK !!!! |
|
| |
Category : About Me
| Posted By : admin | Comments[1] | Trackbacks [11289] |
|
|
| 26 Mar 2006 04:51:33 pm |
| Jangan hanya liat ke atas coba sekali kali liat ke bawah |
|
|
Hidup harus diajalani, beragam ragam kehidupan yang dijalani tiap manusia. Ada yang dilahirkan di keluarga kaya, dan ada juga yang dilahirkan di keluarga miskin.
Orang yang dilahirkan dikeluarga kaya kadang tidak memanfaatkan apa yang sudah dimiliki nya. Bahkan ada yang relah menhamburkan atau menghabiskan semua yang dimiliki demi untuk kesenangan pribadi tanpa memikiran masa depan yang cerah...
Ada orang yang dilahirkan dikeluarga miskin, sesorang yang memiliki kemampuan dan kemauan untuk berkembang demi masa depan yang cerah... tetapi apa daya.. untuk mengikuti belajar disekolah saja sangat susah... dan kebanyakan inilah yang menjadi penghambat kemajuan dari orang tersebut..
Wahai orang - orang yang diatas.. janganlah hanya memandang keatas cobalah sekali kali lihat kebawah, lihat lah mereka .. jangan sampai anda lupa melihat kebawah sebab anda suatu saat akan tersandung batu dan jatuh lebih kebawah dari mereka dan anda akan merasakan jauh lebih sakit dari orang orang yang berda di bawah...
salam, |
|
| |
Category : About Me
| Posted By : admin | Comments[7] | Trackbacks [0] |
|
|
| 27 Feb 2006 05:05:32 pm |
| About me |
|
|
My Name is Rionardo simanjuntak, my home town now in medan nort sumatera Indonesia.
I am now working in one company, it's all about internet. i am from del polytechnic of informatics, near to toba lake.
e-mail in rio.linuxer@gmail.com
to be continued
rio simanjuntak |
|
| |
Category : About Me
| Posted By : admin | Comments[3] | Trackbacks [0] |
|
| |
|
|
|
