• Home
 · 
• Internet/HTML
 · 
• Yahoo Caption Changer ! Elementary Programming

Yahoo Caption Changer ! Elementary Programming

Yahoo Caption Changer ! Elementary Programming

Rate Yahoo Caption Changer ! Elementary Programming

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' Y! Caption Changer            |
' Author : Dr Morphin           |
' Email : [email protected]  |
' =================================
Option Explicit
'========================
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "You Need to type something in first", vbOKOnly, "No Text"
Text1.Text = "Add Message Here"
Else
Dim rt As String
rt = Text1.Text
Text2.Text = "[App Title]" & vbNewLine & "Caption=" & rt
Open "C:\Program Files\Yahoo!\Messenger\ymsgr.ini" For Output As #1
Print #1, Text2.Text
Close 1
MsgBox "Yahoo will now close and restart to show the changes", vbOKOnly, "Yahoo Caption Change Successful"
Terminate_All_IE
Dim RetVal
RetVal = Shell("C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe", 1)
End
End If
End Sub
Private Sub Command2_Click()
MsgBox "Yahoo will now close and restart to save the changes", vbOKOnly, "Yahoo Caption Change Successful"
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Click()
Text1.Text = ""
Command1.Enabled = True
End Sub
Private Sub Terminate_All_IE()
    Dim WMIObject As Object
    Dim WMIObjectSet As Object
    Set WMIObjectSet = GetObject("WinMgmts:").execquery("select * from Win32_process where name='YahooMessenger.EXE'")
    For Each WMIObject In WMIObjectSet
        If WMIObject.Terminate = 0 Then
            Debug.Print "Process terminated"
        End If
    Next
    
End Sub