Silakan tunggu sedang proses
Senin Wage 25 Maret 2019 05:50
learn make rich
share make it perfect
Ayat Suci
Mereka masuk ke dalamnya pada hari pembalasan.
(QS. AL INFITHAR:15)

 otomatis refresh

Javascript ayat
Para Rekan
Lain-lain
User online: 82
User login: 0
Statistik BengkelProgram.com
user/passwd: bpuser

Merubah Status Yahoo! Messenger

Penulis
Bagi yang sering memanfaatkan IM (Instant Messenger) ini, kemungkinan besar sering memanfaatkan fasilitas status dan availibilty.

Aryo Sanjaya <h1>Coeg</h1>
Sabtu Pahing, 26 November 2005

Status YM (Yahoo! Messenger) menunjukkan keadaan kita saat ini, sehingga dapat terlihat oleh para chatter lainnya. Biasanya kita melakukan perubahan status tersebut melalui menu yang telah disediakan oleh YM sendiri. Bisa dengan memilih status yang telah disediakan, atau mengisikan sendiri status tersebut.

Beberapa aplikasi dapat melakukan perubahan status di YM secara eksternal, misalnya saja plug-in WinAmp yang bernama YM Status Changer, yang akan merubah status di YM sesuai dengan lagu yang sedang dimainkan pada WinAmp.

Berikut ini akan dibahas cara merubah status di YM menggunakan aplikasi Visual Basic. Contoh yang digunakan adalah mirip dengan YM Status Changer, yaitu merubah status YM, dengan mengambil lagu yang sedang dimainkan di WinAmp. Dari contoh tersebut, tentu dapat dikembangkan sesuai dengan kebutuhan sendiri.

Cara mengambil lagu yang dimainkan oleh WinAmp, kita menggunakan caption pada windownya:

  • Dengan Windows API, kita mencari handle window dengan class Winamp v1.x

    WinAmpHnd = FindWindow("Winamp v1.x", vbNullString)
     
  • Ambil caption pada handle tersebut dengan fungsi GetWindowText

    wname = Space(260)
    GetWindowText WinAmpHnd, wname, 260
    wname = Left(wname, InStr(wname, Chr(0)) - 1)

     

Sedangkan cara melakukan perubahan status di YM adalah sebagai berikut:

  • Dari registry YM, ambil nama user yang sedang login (aktif) saat ini

    UserAktif = Regs.GetStringValue("HKEY_CURRENT_USER\Software\Yahoo\pager", "Yahoo! User ID")
     
  • Dengan nama tersebut, tentukan lokasi path Profile user aktif

    ProfilePath = "HKEY_CURRENT_USER\Software\Yahoo\pager\profiles\" & UserAktif & "\Custom Msgs"
     
  • Rubah Custom Message (status) sesuai dengan caption dari WinAmp

    Regs.SetStringValue ProfilePath, "5", wname
     
  • Rubah status user visibility juga

    Regs.SetDWORDValue ProfilePath, "5_DND", 0
     
  • Dengan Windows API, cari handle window yang menggunakan class YahooBuddyMain (class-nya YM)

    YMWnd = FindWindow("YahooBuddyMain", vbNullString)
     
  • Berikan pesan (PostMessage) pada handle tersebut untuk merubah statusnya

    PostMessage YMWnd, &H111, &H188, 0
     

Nilai status yang baru, diletakkan pada entri 5 agar dianggap sebagai entri baru oleh YM, sehingga status saat ini (sebelum dirubah), akan bergeser ke nomor 4. Sedangkan entri nomor 4 akan pindah ke nomor 3, dan seterusnya. Entri 1 akan hilang. Total adalah 5 status yang disimpan oleh YM.

Untuk visibility digunakan nilai 0 untuk visible, dan 1 untuk invisible.

Pada contoh source-code, atau aplikasi jadi, aplikasi akan merefresh status secara terus menerus (interval default 3 detik), untuk mengecek status di WinAmp dan menerapkannya di YM.
Hal ini berbeda dengan YM Status Changer yang karena keberadaannya sebagai plug-in dari WinAmp, sehingga dia dapat melakukan perubahan status hanya jika ada perubahan lagu.

Fungsi tersebut dapat dimanfaatkan untuk hal lain yang mungkin saja lebih berguna :)

Komentar

Halaman Komentar:   < 1 2 3 4 5  >

sandra

Selasa Pahing, 3 Juni 2008

Ki6xXi sd95vbm24r7mvu4091rvbqp

Ytcxkinr

Sabtu Wage, 5 Juli 2008

hi nice site thx man

muhammad nasir

Sabtu Wage, 5 Juli 2008

Alhamdulillah saya dah dapatkan web buat tambah pengalman baru. syukran akh.

Mmewdjfe

Minggu Kliwon, 6 Juli 2008

interesting site man

Ttkrdowa

Minggu Kliwon, 6 Juli 2008

cool site man

asep

Rabu Pon, 9 Juli 2008

mas kl isi percakapan kita berikut jawaban dari lawan chating, kita simpan dalam sebua database akses misalnya tp masih pake VB gimana tuh mas alur program/logika program-nya, ditunggu yah., makasih atas jawabannya....

nick

Senin Pahing, 28 Juli 2008

UgUX4h hi! hice site!

nick

Rabu Wage, 30 Juli 2008

UBBYCI hi! hice site!

Wiskkpfg

Kamis Kliwon, 31 Juli 2008

see this thanks

kris

Sabtu Legi, 16 Agustus 2008

cool site man


Halaman Komentar:   < 1 2 3 4 5  >

Mengisi Komentar





untuk kode program, apit dengan tanda [code][/code].
contoh:

[code]
(kode program)
[/code]



Daftar Artikel VB

» Fungsi Terbilang Pake Vb (106)
Rabu Pahing, 9 April 2008

Mengubah angka menjadi huruf ..fungsi terbilang sangat bermanfaat buat kamu yang bikin program yang banyak berhubungan dengan uang.

» Crystal Report script menggunakan vb (395)
Rabu Pahing, 9 April 2008

Menggunakan Crytal Report 8.5 menggunkan script dan Crviewer, component dari Crystal Report

» Komponen Google Earth (GE) (64)
Senin Kliwon, 7 April 2008

Kita tidak perlu keluar sistem untuk menampilkan GE pada program aplikasi kita

» Source SMS Autorespond (431)
Senin Legi, 24 April 2006

Source-code SMS AR dalam Visual Basic

» Memecah Komponen Warna (159)
Sabtu Legi, 18 Februari 2006

Untuk para desainer di komputer, penentuan komponen warna sangatlah berpengaruh pada hasil desain



Halaman:    1  2  >  

Account Data
Anda belum login.






 

Login hanya diperlukan bagi kontributor untuk mengisi artikel/berita dan mengupload file/gambar
Status Y!M
Saya sedang Offline. Silakan gunakan menu Kontak atau tinggalkan pesan di Yahoo! Messenger pada Id: aryo_sanjaya
Artikel Rame
Aplikasi Handphone (675)
Senin Pon, 20 Februari 2006

Mengirim SMS dari PC (463)
Senin Wage, 28 November 2005

Membaca SMS dari PC (439)
Selasa Pahing, 14 Juni 2005

Source SMS Autorespond (342)
Senin Legi, 24 April 2006

Barcode Reader (163)
Sabtu Pahing, 20 Januari 2007

Bukutamu
» addin
Kamis Wage
30 Juli 2009

» shen
Senin Legi
27 Juli 2009

» iyha
Rabu Wage
15 Juli 2009

» wawan
Rabu Kliwon
1 Juli 2009

» fuad hasan
Minggu Kliwon
21 Juni 2009


Halaman Bukutamu
Daftar Fungsi
pasaran
Mencari nama hari dan nama pasaran
pdu2sms
Konversi dari PDU ke Teks SMS
bacarss
Membaca RSS dari beberapa situs
Jejak Halaman
© 2005-2019 BengkelProgram.com