- Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
- Tìm kiếm trước khi đặt câu hỏi
Thay đổi status trong yahoo
Điều hành viên: tungblt
-
- Thành viên tâm huyết
- Bài viết: 496
- Ngày tham gia: T.Ba 04/11/2008 8:43 am
- Has thanked: 6 time
- Been thanked: 8 time
Thay đổi status trong yahoo
Cho em hỏi với.
Làm cách nào để tự động thay đổi status của yahoo mesage bằng. Em đã đọc cái hàm sendmessage kỹ lắm rồi mà làm maĩ không được.
Em định làm một tool nhỏ để tự động thay đổi status yahoo cho nó đẹp và sắp tới tặng sinh nhật đứa bạn. Nhưng nghiên cứu mãi cũng chả thấy được. Giúp em với nha
Em xin cảm ơn
Làm cách nào để tự động thay đổi status của yahoo mesage bằng. Em đã đọc cái hàm sendmessage kỹ lắm rồi mà làm maĩ không được.
Em định làm một tool nhỏ để tự động thay đổi status yahoo cho nó đẹp và sắp tới tặng sinh nhật đứa bạn. Nhưng nghiên cứu mãi cũng chả thấy được. Giúp em với nha
Em xin cảm ơn
- Rowens
- Thành viên năng nổ
- Bài viết: 88
- Ngày tham gia: CN 05/07/2009 10:47 pm
- Đến từ: Đồng Nai
- Has thanked: 5 time
- Been thanked: 5 time
- Liên hệ:
Re: Thay đổi status trong yahoo
Về SendMessage thì mình hok biết gì hết
Nhưng tự động thay đổi status thì mình nghĩ dùng SendKeys là làm được:
- Cho cửa sổ YM active.
- SendKeys để chỉnh sửa status (Alt + M + RightArrow + 3 lần DownArrow + Enter + Nội dung status + Enter)
- Trở lại cửa sổ đang làm việc (Alt + Tab)
p/s: nghiên cứu cách acitve cửa sổ của process đang ở traybar.

Nhưng tự động thay đổi status thì mình nghĩ dùng SendKeys là làm được:
- Cho cửa sổ YM active.
- SendKeys để chỉnh sửa status (Alt + M + RightArrow + 3 lần DownArrow + Enter + Nội dung status + Enter)
- Trở lại cửa sổ đang làm việc (Alt + Tab)
p/s: nghiên cứu cách acitve cửa sổ của process đang ở traybar.

Rowens - SharkVN Group
wWw.SharkVn.Org
wWw.SharkVn.Org
-
- Thành viên danh dự
- Bài viết: 839
- Ngày tham gia: T.Hai 30/04/2007 9:55 pm
- Đến từ: Sài Gòn
- Has thanked: 7 time
- Been thanked: 83 time
Re: Thay đổi status trong yahoo
Đầu tiên bạn phải ghi status vào key chứa Status của Yahoo trong Registry, cái này tuỳ vào phiên bản Yahoo của bạn, mình xài Yahoo 9 thì đường dẫn như thế này:
HKEY_CURRENT_USER\Software\Yahoo\pager\profiles\[tên nick]\Custom Msgs\1_W
Sau đó bạn dùng SendMessage để cập nhật lại cửa sổ Yahoo.
Nếu bạn dùng Yahoo 8 thì bạn liên hệ với VBNewbie để biết thêm chi tiết
HKEY_CURRENT_USER\Software\Yahoo\pager\profiles\[tên nick]\Custom Msgs\1_W
Sau đó bạn dùng SendMessage để cập nhật lại cửa sổ Yahoo.
Mã: Chọn hết
- YWnd = FindWindow("YahooBuddyMain", vbNullString)
- If YWnd <> 0 Then SendMessage(YWnd, &H111, 388, 1&)
Nếu bạn dùng Yahoo 8 thì bạn liên hệ với VBNewbie để biết thêm chi tiết
Cause you're my special thing
I'm flying without wings
I'm flying without wings
-
- Thành viên tâm huyết
- Bài viết: 496
- Ngày tham gia: T.Ba 04/11/2008 8:43 am
- Has thanked: 6 time
- Been thanked: 8 time
Re: Thay đổi status trong yahoo
Hầu như bây giờ đều là Yahoo 9 rồi. À mà nếu muốn dùng status tiếng việt thì làm sao đây,
Dùng unicode ghi vào register ư ??? sao ghi được
Hay ghi bằng UTF-8 hả bạn ???.
Bạn nếu rảnh có thể làm ví dụ minh hoa chọ mình được không ?
Dùng unicode ghi vào register ư ??? sao ghi được
Hay ghi bằng UTF-8 hả bạn ???.
Bạn nếu rảnh có thể làm ví dụ minh hoa chọ mình được không ?
- clarkkent
- Mạnh Thường Quân
- Bài viết: 1641
- Ngày tham gia: T.Tư 16/04/2008 11:25 am
- Đến từ: Chợ Lách - Bến Tre
- Been thanked: 31 time
- Liên hệ:
Re: Thay đổi status trong yahoo
Yahoo 9 thì ghi thẳng tiếng Việt luôn, dùng hàm chuyển sang tiếng Việt rồi ghi thôi
• Hôm bây: www.tinsoftware.com ^ ^
• Cố gắng lên...
• Cố gắng lên...
-
- Thành viên danh dự
- Bài viết: 839
- Ngày tham gia: T.Hai 30/04/2007 9:55 pm
- Đến từ: Sài Gòn
- Has thanked: 7 time
- Been thanked: 83 time
Re: Thay đổi status trong yahoo
Tại em viết bên VB.NET nên nó sẵn sàng hết mọi thứ, còn bên VB6 phải dùng API ghi vào registry mà VB6 không hỗ trợ Unicode nên em chưa thử.
Cause you're my special thing
I'm flying without wings
I'm flying without wings
- thuongall
- Quản trị
- Bài viết: 455
- Ngày tham gia: T.Tư 26/01/2005 8:05 am
- Đến từ: Quê hương Đồng Khởi
- Been thanked: 9 time
- Liên hệ:
Re: Thay đổi status trong yahoo
Vẫn có thể dùng API ghi chuỗi Unicode vào Registry được, nếu không thì chương trình này sao có thể chạy được với Y!M: viewtopic.php?f=41&t=7881
-
- Thành viên tâm huyết
- Bài viết: 496
- Ngày tham gia: T.Ba 04/11/2008 8:43 am
- Has thanked: 6 time
- Been thanked: 8 time
Re: Thay đổi status trong yahoo
Cái chương trình Danh Ngôn của ThuongAll thì em biết rồi nhưng mà các kỹ thuật về Register đọc mãi chả hiểu, kỹ năng còn lỏng lẻo về các hàm quá. Hay làm hộ em cái demo cái, về em nghiên cứu, chứ từ trước đến nay có sử dụng gì nhiều đến mấy cái kỹ thuật này đâu mà chắc cho được
- clarkkent
- Mạnh Thường Quân
- Bài viết: 1641
- Ngày tham gia: T.Tư 16/04/2008 11:25 am
- Đến từ: Chợ Lách - Bến Tre
- Been thanked: 31 time
- Liên hệ:
Re: Thay đổi status trong yahoo
Đây là 1 ví dụ ghi unicode vào registry 
Form (ghi 1 giá trị unicode vào khóa HKEY_CLASSES_ROOT\.aaa)
Module (chôm của ai đó
)

Form (ghi 1 giá trị unicode vào khóa HKEY_CLASSES_ROOT\.aaa)
Mã: Chọn hết
- Const ANSI$ = "a1 ,a2 ,a3 ,a4 ,a5 ,a6 ,a8 ,a61,a62,a63,a64,a65,a81,a82,a83,a84,a85,A1 ,A2 ,A3 ,A4 ,A5 ,A6 ,A8 ,A61,A62,A63,A64,A65,A81,A82,A83,A84,A85,e1 ,e2 ,e3 ,e4 ,e5 ,e6 ,e61,e62,e63,e64,e65,E1 ,E2 ,E3 ,E4 ,E5 ,E6 ,E61,E62,E63,E64,E65,i1 ,i2 ,i3 ,i4 ,i5 ,I1 ,I2 ,I3 ,I4 ,I5 ,o1 ,o2 ,o3 ,o4 ,o5 ,o6 ,o7 ,o61,o62,o63,o64,o65,o71,o72,o73,o74,o75,O1 ,O2 ,O3 ,O4 ,O5 ,O6 ,O7 ,O61,O62,O63,O64,O65,O71,O72,O73,O74,O75,u1 ,u2 ,u3 ,u4 ,u5 ,u7 ,u71,u72,u73,u74,u75,U1 ,U2 ,U3 ,U4 ,U5 ,U7 ,U71,U72,U73,U74,U75,y1 ,y2 ,y3 ,y4 ,y5 ,Y1 ,Y2 ,Y3 ,Y4 ,Y5 ,d9 ,D9 "
- Const UNI$ = "E1,E0,1EA3,E3,1EA1,E2,103,1EA5,1EA7,1EA9,1EAB,1EAD,1EAF,1EB1,1EB3,1EB5,1EB7,C1,C0,1EA2,C3,1EA0,C2,102,1EA4,1EA6,1EA8,1EAA,1EAC,1EAE,1EB0,1EB2,1EB4,1EB6,E9,E8,1EBB,1EBD,1EB9,EA,1EBF,1EC1,1EC3,1EC5,1EC7,C9,C8,1EBA,1EBC,1EB8,CA,1EBE,1EC0,1EC2,1EC4,1EC6,ED,EC,1EC9,129,1ECB,CD,CC,1EC8,128,1ECA,F3,F2,1ECF,F5,1ECD,F4,1A1,1ED1,1ED3,1ED5,1ED7,1ED9,1EDB,1EDD,1EDF,1EE1,1EE3,D3,D2,1ECE,D5,1ECC,D4,1A0,1ED0,1ED2,1ED4,1ED6,1ED8,1EDA,1EDC,1EDE,1EE0,1EE2,FA,F9,1EE7,169,1EE5,1B0,1EE9,1EEB,1EED,1EEF,1EF1,DA,D9,1EE6,168,1EE4,1AF,1EE8,1EEA,1EEC,1EEE,1EF0,FD,1EF3,1EF7,1EF9,1EF5,DD,1EF2,1EF6,1EF8,1EF4,111,110"
-
-
- Private Sub Command1_Click()
-
- Dim tr As Long
- Dim hResult As Long
- Dim sRegDes As String
- sRegDes = VNI_2_UNI("Ghi tie61ng Vie65t Unicode vào Registry - Nguye64n Trung Ti1n")
-
- tr = RegCreateKey(KeyCoSo.HKEY_CLASSES_ROOT, ".aaa", 0)
- tr = RegOpenKeyEx(KeyCoSo.HKEY_CLASSES_ROOT, ".aaa", 0, KeyTruyxuat.KEY_ALL_ACCESS, hResult)
- tr = RegSetValueExW(hResult, "", 0, KeyGiatri.REG_SZ, StrPtr(sRegDes), LenB(sRegDes))
-
- End Sub
-
- Public Function VNI_2_UNI(str$) As String
- Dim i%, sTem$, sUni$, arrUNI() As String
- arrUNI = Split(UNI, ",")
- For i = 1 To Len(str)
- If IsNumeric(Mid(str, i + 1, 1)) = False Then
- sUni = sUni & Mid(str, i, 1)
- Else
- sTem = IIf(IsNumeric(Mid(str, i + 2, 1)), Mid(str, i, 3), Mid(str, i, 2) & " ")
- i = i + IIf(IsNumeric(Mid(str, i + 2, 1)), 2, 1)
- If InStr(ANSI, sTem) > 0 Then sTem = ChrW$("&h" & arrUNI(InStr(ANSI, sTem) \ 4))
- sUni = sUni & RTrim(sTem)
- End If
- Next
- VNI_2_UNI = sUni
- End Function
-
Module (chôm của ai đó

Mã: Chọn hết
- Option Explicit
-
- Public Type SECURITY_ATTRIBUTES
- nLength As Long 'Chie^`u dài cu?a chuo^?i ba?o ma^.t
- lpSecurityDescriptor As Long ' Chuo^?i ba?o ma^.t
- bInheritHandle As Long ' hanle
- End Type
-
- Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
-
- Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
- Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
- Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
- Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
- Public Declare Function RegSetValueExW Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Long, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
- Public Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
- Public Declare Function RegDeleteKeyA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
-
- Public Enum KeyCoSo
- HKEY_CLASSES_ROOT = &H80000000
- HKEY_CURRENT_CONFIG = &H80000005
- HKEY_LOCAL_MACHINE = &H80000002
- HKEY_CURRENT_USER = &H80000001
- HKEY_USERS = &H80000003
- End Enum
- Public Enum KeyTruyxuat
- KEY_ALL_ACCESS = &HF003F 'Mo.i kie^?u truy xua^'t
- KEY_CREATE_LINK = &H20 ' Quye^`n ta.o liên ke^'t ký hie^.u
- KEY_CREATE_SUB_KEY = &H4 'Quye^`n ta.o khóa con
- KEY_ENUMERATE_SUB_KEYS = &H8 '‘Quye^`n lie^.t kê khóa con
- KEY_EXECUTE = &H20019 'Quye^`n ?o.c
- KEY_NOTIFY = &H10
- KEY_QUERY_VALUE = &H1
- KEY_READ = &H20019 'Quye^`n ?o.c
- KEY_SET_VALUE = &H2 'Quye^`n ?a(.t giá tri.
- KEY_WRITE = &H20006 'Quye^`n vie^'t du+~ lie^.u
- End Enum
- Public Enum KeyGiatri
- REG_BINARY = 3 'Mo^.t chuo^?i nhi. phân
- REG_DWORD = 4 ' Mo^.t so^' nguyên 32 bit
- REG_DWORD_BIG_ENDIAN = 5 'So^' nguyên 32 bit
- REG_DWORD_LITTLE_ENDIAN = 4 'So^' nguyên 32 bit
- REG_EXPAND_SZ = 2 'Mo^.t chuo^?i ke^'t thúc bo+?i Null
- REG_LINK = 6 'Liên ke^'t Unicode
- REG_MULTI_SZ = 7 ' Nhie^`u chuo^?i ke^'t ho+.p bo+?i kt Null
- REG_NONE = 0 ' Không ro? kie^?u
- REG_SZ = 1 ' Mo^.t chuo^?i
- REG_RESOURCE_LIST = 8 ' Danh sách tài nguyên
- End Enum
-
• Hôm bây: www.tinsoftware.com ^ ^
• Cố gắng lên...
• Cố gắng lên...
- VBNewbie
- Thành viên tích cực
- Bài viết: 113
- Ngày tham gia: T.Bảy 29/03/2008 7:13 pm
- Đến từ: Computer
- Been thanked: 3 time
- Liên hệ:
Re: Thay đổi status trong yahoo
Em làm dc ct hỗ trợ 8 va 9 nhưng có một điều là nếu tạo hiệu ứng chạy chữ thì chạy dc 30 giây là Yahoo chấm dứt việc thay đổi Status của bạn . T - T
Pác nào có cách chạy chữ dc lâu pày em với !
Pác nào có cách chạy chữ dc lâu pày em với !

-------[[[[[[[ VMind - PM trắc nghiệm đa năng ]]]]]]]]------
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc
-
- Thành viên trung thành
- Bài viết: 207
- Ngày tham gia: T.Tư 26/03/2008 6:10 pm
- Đến từ: Quê cha đất tổ
- Been thanked: 4 time
- Liên hệ:
Re: Thay đổi status trong yahoo
VBNewbie đã viết:Em làm dc ct hỗ trợ 8 va 9 nhưng có một điều là nếu tạo hiệu ứng chạy chữ thì chạy dc 30 giây là Yahoo chấm dứt việc thay đổi Status của bạn . T - T
Pác nào có cách chạy chữ dc lâu pày em với !
mạng mày chuối, 1mb/s mà đòi chạy thì chạy cái gì
giải pháp là lúc thay thì cho nó sleep 1 lúc đi (chém 1 tí)
XFARM.CC
- VBNewbie
- Thành viên tích cực
- Bài viết: 113
- Ngày tham gia: T.Bảy 29/03/2008 7:13 pm
- Đến từ: Computer
- Been thanked: 3 time
- Liên hệ:
Re: Thay đổi status trong yahoo
Ac, cap wang 3mb/s nha ong !
Muon nghi thi phai nghi 1 phut, hic nghi vay thi khoi lam ! T - T
Muon nghi thi phai nghi 1 phut, hic nghi vay thi khoi lam ! T - T
-------[[[[[[[ VMind - PM trắc nghiệm đa năng ]]]]]]]]------
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc
-
- Thành viên trung thành
- Bài viết: 207
- Ngày tham gia: T.Tư 26/03/2008 6:10 pm
- Đến từ: Quê cha đất tổ
- Been thanked: 4 time
- Liên hệ:
Re: Thay đổi status trong yahoo
VBNewbie đã viết:Ac, cap wang 3mb/s nha ong !
Muon nghi thi phai nghi 1 phut, hic nghi vay thi khoi lam ! T - T
cáp quang cơ à, mày chơi sang hơn anh mà suốt ngày ra quán tải

nghỉ gì 1 phút cơ chú em? khoảng 10 giây
à mà thằng này ko viết có dấu, đề nghị cán bộ xử lí
XFARM.CC
- VBNewbie
- Thành viên tích cực
- Bài viết: 113
- Ngày tham gia: T.Bảy 29/03/2008 7:13 pm
- Đến từ: Computer
- Been thanked: 3 time
- Liên hệ:
Re: Thay đổi status trong yahoo
Pác nào có code ghi vào subkeyvalue registry chử unicode hok , share em với, cái của pác Tín chỉ lưu vào Key thui 

-------[[[[[[[ VMind - PM trắc nghiệm đa năng ]]]]]]]]------
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc
- thuongall
- Quản trị
- Bài viết: 455
- Ngày tham gia: T.Tư 26/01/2005 8:05 am
- Đến từ: Quê hương Đồng Khởi
- Been thanked: 9 time
- Liên hệ:
Re: Thay đổi status trong yahoo
Ghi Unicode vào SubKey hay Key cũng như nhau, vấn đề mấu chốt là thay các hàm A sang W mà thôi, còn lại thì code như bình thường.
- VBNewbie
- Thành viên tích cực
- Bài viết: 113
- Ngày tham gia: T.Bảy 29/03/2008 7:13 pm
- Đến từ: Computer
- Been thanked: 3 time
- Liên hệ:
Re: Thay đổi status trong yahoo

Sửa
tr = RegSetValueExW(hResult, "", 0, KeyGiatri.REG_SZ, StrPtr(sRegDes), LenB(sRegDes))
thành
tr = RegSetValueExW(hResult, StrPtr(Subkeyname), 0, KeyGiatri.REG_SZ, StrPtr(sRegDes), LenB(sRegDes))
và sửa
Public Declare Function RegSetValueExW Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Long, ByVal cbData As Long) As Long
thành
Public Declare Function RegSetValueExW Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As Long, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Long, ByVal cbData As Long) As Long




-------[[[[[[[ VMind - PM trắc nghiệm đa năng ]]]]]]]]------
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc
Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”
Đang trực tuyến
Đang xem chuyên mục này: Không có thành viên nào trực tuyến. và 1 khách