Telephone via Komputer

Komponen yang dibutuhkan mscomm32.ocx. Copy paste kode ini ke form dengan 3 command button.
Maap lagi masih copy paste, yg asli ditunggu nanti coba q upload...

Nah nih langsung download
Download Source Code


'**************************************
'Windows API/Global Declarations for :Di
' al A Phone # With the MSCOMM
'**************************************
Option Explicit
DefInt A-Z
Dim CancelFlag

'**************************************
' Name: Dial A Phone # With the MSCOMM
' Description:This code is to show you h
' ow to dial a phone # useing a .ocx that
' comes with vb.
' By: Flyman
'
' Assumes:Beaware: Do not call people yo
' u do not know! It can be traced! Also do
' not use as a "Warez" Dialer(make it into
' one)
'
' Side Effects:It may not dial if you pu
' t the - (ex:1-805-230-9271)
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=4843&lngWId=1'for details.'**************************************



Private Sub CancelButton_Click()
CancelFlag = True
CancelButton.Enabled = False
End Sub


Private Sub Dial(Number$)
Dim DialString$, FromModem$, dummy
DialString$ = "ATDT" + Number$ + ";" + vbCr
MSComm1.CommPort = 9
MSComm1.Settings = "9600,N,8,1"
On Error Resume Next
MSComm1.PortOpen = True


If Err Then
MsgBox "COM9: Not available. Change the CommPort Property To another port."
Exit Sub
End If
MSComm1.InBufferCount = 0
MSComm1.Output = DialString$


Do
dummy = DoEvents()


If MSComm1.InBufferCount Then
FromModem$ = FromModem$ + MSComm1.Input


If InStr(FromModem$, "OK") Then

Beep
MsgBox "Please pick up the phone and either press Enter or click OK"
Exit Do
End If
End If
'got help from microsoft


If CancelFlag Then
CancelFlag = False
Exit Do
End If
Loop
MSComm1.Output = "ATH" + vbCr
MSComm1.PortOpen = False
End Sub


Private Sub DialButton_Click()
Dim Number$, Temp$
Dim status As String
DialButton.Enabled = False
QuitButton.Enabled = False
CancelButton.Enabled = True
Number$ = InputBox$("Enter phone number:", Number$)
If Number$ = "" Then Exit Sub
Temp$ = status
status = "Dialing - " + Number$
Dial Number$
DialButton.Enabled = True
QuitButton.Enabled = True
CancelButton.Enabled = False
status = Temp$
End Sub


Private Sub Form_Load()
MSComm1.InputLen = 0
End Sub


Private Sub QuitButton_Click()
End
End Sub

sumber: www.planet-source-code.com

Open Port

Open port yang dimaksud disini adalah open port com bisa serial atau usb. Komponen yang harus ditambahkan adalah MSCOMM32.ocx. Setelah itu copy paste kode berikut dalam command button.

Private Sub Command1_Click()
On Error Resume Next

'isi com berapa yang akan dicoba.
Comm1.CommPort = "9"

If Comm1.PortOpen = True Then
Comm1.PortOpen = False

Comm1.PortOpen = True
Else
Comm1.PortOpen = True
End If

If Comm1.PortOpen = True Then
MsgBox "terbuka port" & Comm1.CommPort
Else
MsgBox "tertutup port" & Comm1.CommPort
End If

End Sub

Biasanya open port ini digunakan untuk berkomunikasi antara komputer dengan hardware lain yang menggunakan port serial atau USB misal komunikasi dengan handphone.

Maap ya masih dalam bentuk text, untuk source code aslinya nanti coba q upload dehh... sabar ya...

Nah Nih filenya...
Download Source Code

Memunculkan Status GTalk

GTalk adalah Program chating sama seperti YM. GTalk adalah bawaan dari google. untuk download software klik disini http://www.google.com/talk/.

Untuk menampilkan status GTalk kita, buka link ini http://www.google.com/talk/service/badge/New, copy dan paste script yang ada ke halaman web atau blog anda.

Selamat mencoba...

Kumpulan Gambar YM

Berikut kumpulan gambar YM yang bisa anda pasang diweb atau blog anda. Pilih salah satu copy script dan paste diweb atau blog anda. Tapi jangan lupa ganti "YAHOO_ID_ANDA" dengan "id anda sendiri".

Disini kita lihat ada script "t=1, t=2, dst" disini anda bisa mencoba dengan angka yang lain.

1. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=1">

</a>

2. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=2">

</a>

3. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=5">

</a>

4. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=6">

</a>

5. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=7">

</a>

6. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=8">

</a>

7. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=9">

</a>

8. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=10">

</a>

9. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=11">

</a>

10. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=12">

</a>

11. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=13">

</a>

12. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=14">

</a>

13. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=15">

</a>

14. Gambar


Script :

<a href="ymsgr:sendim?YAHOO_ID_ANDA" border="0">

<img src="http://opi.yahoo.com/online?u=YAHOO_ID_ANDA&t=16">

</a>