by Dr Morphin (8 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 10th March 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Yahoo Caption Changer ! Elementary Programming
' 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