toxic

Semoga Artikel Ini Bermanfaat Bagi Kalian Semua !, And Moga-Moga Artikel Ini Nggak Di Sia-siakan !, Soalnya Artikel Ini Bermanfaat Lho !.



To The Point Aja Biar Cepet :
Masukkan Script Berikut Di Form, Tau Khan Cara Masukannya ?, Kalau Nggak Tau Belajar Dulu Dech Sebelum Praktek !.

‘====Script====
‘======================================================
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
‘======================================================
Function GetNameKomputer() As String
On Error Resume Next
Dim dwLen As Long
Dim strString As String
dwLen = 256
strString = String(dwLen, Chr(0))
GetComputerName strString, dwLen
GetNameKomputer = Left(strString, InStr(1, strString, Chr(0)) - 1)
End Function
‘======================================================
Private Sub Command1_Click()
Text1.Text = "Name Computer : " + GetNameKomputer
Dim GJ As String
Dim wnd As Long
Dim SS_Pesan As String
Shell "notepad", vbNormalFocus
SS_Pesan = "Nama Komputer : " + GetNameKomputer & vbCrLf + "Created By : Muhammad Nur Kholis"
For d = 1 To Len(SS_Pesan)
GJ = Mid(SS_Pesan, d, 1)
SendKeys GJ, 90
Next d
End Sub
‘======================================================
Private Sub Form_Load()
Text1.Text = "Name Computer : " + GetNameKomputer
End Sub
‘======================================================
‘====End Script====


Kalau Sudah Di Coba !, Harus Di Kembangkan !, Supaya Programer Indpnesia Terus Maju [Semakin Pinter] & Sehat Selalu. [Apa Hubungannya Dengan Sehat ??]

Ya Udah Sampai Di Sini Perjumpaan Artikel Ku Semoga Bermanfaat !.