MSGPlus to HTML conversor, Converte i codici di MSN Plus in HTML istantaneamente! (:

« Older Newer »

xMasteRx

Posted on 22/7/2010, 23:03

Questo non è del tutto inutile, l'ho fatto mentre usavo ebuddy [per chi non sapesse lui non riconosce i codici di msn plus e fa un vero casino nella lista contatti

] hihi
Il mio script converte istantaneamente i codice che inserite nel edit e lo salva su un file html e lo fa aprire su un oggeto internet sotto l'edit stesso (:
PS: Chi spaccia per suo il codice di conversione brucierà per 200 vite nell'inferno :ph34r:

(PS²: Grazie a EMESENE ) per le constanti dei colori (:

SPOILER (click to view)

CODICE

#include<WindowsConstants.au3>
#include<GUIConstants.au3>
#include<StaticConstants.au3>
#include<GUIEdit.au3>

$Output=FileOpen("Converted.html", 34)
$oIE=ObjCreate("Shell.Explorer.2")
If Not IsObj($oIE) Then Global $Mode=2
If IsObj($oIE) Then Global $Mode=1

Global Const $COLORS[70]=['ffffff','000000','00007F','009300','FF0000','7F0000','9C009C','FC7F00', 'FFFF00','00FC00','009393','00FFFF','0000FC','FF00FF','7F7F7F','D2D2D2','E7E6E4','CFCDD0','FFDEA4','FFAEB9','FFA8FF','B4B4FC','BAFBE5','C1FFA3','FAFDA2','B6B4B7','A2A0A1','F9C152','FF6D66','FF62FF','6C6CFF','68FFC3','8EFF67','F9FF57','858482','6E6D7B','FFA01E','F92611','FF20FF','202BFF','1EFFA5','60F913','FFF813','5E6464','4B494C','D98812','EB0505','DE00DE','0000D3','03CC88','59D80D','D4C804','333335','18171C','944E00','9B0008','980299','01038C','01885F','389600','9A9E15','473400','4D0000','5F0162','000047','06502F','1C5300','544D05']
GUICreate("MSN Plus - HTML Conversor by MasteR [Caio]", 500, 500)

$Pplus=GUICtrlCreateInput("Caricare da file", 10, 10, 400, 20, $ES_READONLY)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x00FFFF)
$PplusSfoglia=GUICtrlCreateButton("Aprire", 410, 10, 80, 20)
If $Mode=1 Then $EDIT=GUICtrlCreateEdit("Scrivi qui il codice MSGPlus"&@CRLF&"By MasteR"&@CRLF&"'[b]Caa[/b][c=12]aiioo[/c][b][i]![/b][/i]", 10, 40, 480, 210, BitOR($ES_WANTRETURN, $WS_VSCROLL, $ES_AUTOVSCROLL, $ES_MULTILINE, $WS_TABSTOP))
If $Mode=2 Then $EDIT=GUICtrlCreateEdit("Scrivi qui il codice MSGPlus"&@CRLF&"By MasteR"&@CRLF&"'[b]Caa[/b][c=12]aiioo[/c][b][i]![/b][/i]", 10, 40, 480, 420, BitOR($ES_WANTRETURN, $WS_VSCROLL, $ES_AUTOVSCROLL, $ES_MULTILINE, $WS_TABSTOP))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x00FFFF)
$EDITh=""

If $Mode=2 Then $ConvertBut=GUICtrlCreateButton("&Converter", 10, 470, 480, 20)

$SPLIT=StringSplit(@ScriptDir&"\Converted.html", "\")
For $i=0 To UBound($SPLIT)-2
$POS=$SPLIT[$i]
Next

GUICtrlCreateObj($oIE, 10, 290, 480, 200)
If $Mode=1 Then
$Phtml=GUICtrlCreateInput($POS, 10, 260, 400, 20, $ES_READONLY)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x00FFFF)
$PhtmlSfoglia=GUICtrlCreateButton("Trova", 410, 260, 80, 20)
EndIf
GUISetState()

If $Mode=1 Then
While 1
Sleep(20)
Switch GUIGetMsg()
Case -3
Exit
Case $PplusSfoglia
$OpenDialog=FileOpenDialog("MSGp - HTML conversor by MasteR [Caio :*]", @DesktopDir, "All(*.*)")
GUICtrlSetData($Pplus, $OpenDialog)
GUICtrlSetData($EDIT, FileRead(FileOpen($OpenDialog, 32)))
FileClose($Output)
$Output=FileOpen("Converted.html", 34)
FileWrite($Output, _Convert(GUICtrlRead($EDIT)))
$oIE.Navigate(@ScriptDir&"\Converted.html")
Case $PhtmlSfoglia
$SPLIT=StringSplit(@ScriptDir&"\Converted.html", "\")
For $i=0 To UBound($SPLIT)-2
$POS=$SPLIT[$i]
Next
Run(@WindowsDir&"\explorer.exe "&$POS)
EndSwitch
If GUICtrlRead($EDIT)<>$EDITh Then
$EDITh=GUICtrlRead($EDIT)
FileClose($Output)
$Output=FileOpen("Converted.html", 34)
FileWrite($Output, _Convert(GUICtrlRead($EDIT)))
$oIE.Navigate(@ScriptDir&"\Converted.html")
Sleep(230)
EndIf
WEnd
Else
While 1
Sleep(20)
Switch GUIGetMsg()
Case -3
Exit
Case $PplusSfoglia
$OpenDialog=FileOpenDialog("MSGp - HTML conversor by MasteR [Caio :*]", @DesktopDir, "All(*.*)")
GUICtrlSetData($Pplus, $OpenDialog)
GUICtrlSetData($EDIT, FileRead(FileOpen($OpenDialog, 32)))
FileClose($Output)
$Output=FileOpen("Converted.html", 34)
FileWrite($Output, _Convert(GUICtrlRead($EDIT)))
ShellExecute(@ScriptDir&"\Converted.html")
Case $ConvertBut
$EDITh=GUICtrlRead($EDIT)
FileClose($Output)
$Output=FileOpen("Converted.html", 34)
FileWrite($Output, _Convert(GUICtrlRead($EDIT)))
ShellExecute(@ScriptDir&"\Converted.html")
Sleep(230)
EndSwitch
WEnd
EndIf

Func _Convert($read)
$read=StringReplace($read, @LF, " ")
$read=StringReplace($read, "[b]", "")
$read=StringReplace($read, "[/b]", "")
$read=StringReplace($read, "[i]", "")
$read=StringReplace($read, "[/i]", "")
$read=StringReplace($read, "[u]", "")
$read=StringReplace($read, "[/u]", "")
$read=StringReplace($read, "[/c]", "")
For $i=0 To 69
$read=StringReplace($read, "[c="&$i&"]", "")
$read=StringReplace($read, "[/c="&$i&"]", "")
Next
While StringInStr($read, "[c=#") ; COLOR
$STRpos=StringInStr($read, "[c=#")
$STRleft=StringLeft($read, $STRpos+4+6)
$STRright=StringMid($read, $STRpos+4+7)
$read=$STRleft&">"&$STRright
$read=StringReplace($read, "[c=#", ""&$STRright
$read=StringReplace($read, "·$#", "", 1)
While StringInStr($read, "·#"); BOLD
$Spos1=StringInStr($read, "·#", 0, 1)
$Spos2=StringInStr($read, "·#", 0, 2)
$read=StringReplace($read, "·#", "", 1)
If Not StringInStr(StringMid($read, $Spos1, $Spos2), " ") Then
$read=StringReplace($read, "·#", "", 1)
EndIf
WEnd
While StringInStr($read, "·&"); UNDERLINE
$Spos1=StringInStr($read, "·&", 0, 1)
$Spos2=StringInStr($read, "·&", 0, 2)
$read=StringReplace($read, "·&", "", 1)
If Not StringInStr(StringMid($read, $Spos1, $Spos2), " ") Then
$read=StringReplace($read, "·&", "", 1)
EndIf
WEnd
While StringInStr($read, "·'"); Strikethrough
$Spos1=StringInStr($read, "·'", 0, 1)
$Spos2=StringInStr($read, "·'", 0, 2)
$read=StringReplace($read, "·'", "", 1)
If Not StringInStr(StringMid($read, $Spos1, $Spos2), " ") Then
$read=StringReplace($read, "·'", "", 1)
EndIf
WEnd
Return $read
EndFunc

COMPILATO
http://mastersoft.altervista.org/MSGpToHTMLConversor.exe

0 replies since 22/7/2010, 23:03 193 views