Hallo,
ich habe vor kurzem angefangen PureBasic zusätzlich zu lernen und habe nun eine DLL geschrieben mit nen paar Befehlen die es nur über plugins oder UDFs ausm Englischen Forum bisher gibt. Ich werde sie noch erweitern und im Moment sind es nur 4 Befehle.
SourceCode der DLL:
Spoiler anzeigen
Code
Global lReturn$ = ""
ProcedureDLL.s Encrypt( aString.s, aMode.l = 1, aLevel.l = 1 )
Protected lStrLen.b = Len( aString ), lNum.b = 1
Select aMode
Case 1
Repeat
lReturn$ = lReturn$ + Chr( Asc( Mid( aString, lNum, 1 ) ) + aLevel )
lNum = lNum + 1
Until lNum = lStrLen
Case 0
Repeat
lReturn$ = lReturn$ + Chr( Asc( Mid( aString, lNum, 1 ) ) - aLevel )
lNum = lNum + 1
Until lNum = lStrLen
EndSelect
ProcedureReturn lReturn$
EndProcedure
ProcedureDLL.l SelectColor()
Farbe.l = ColorRequester()
If Farbe > -1
ProcedureReturn Farbe
Else
ProcedureReturn 0
EndIf
EndProcedure
ProcedureDLL.s SelectFont( aName$, aSize.l)
Result = FontRequester(aName$, aSize, #PB_FontRequester_Effects)
If Result > -1
lReturn$ = SelectedFontName() + "|" + Str(SelectedFontSize()) + "|" + Str(SelectedFontColor())
EndIf
If SelectedFontStyle() & #PB_Font_Bold
lReturn$ + "|Bold"
EndIf
If SelectedFontStyle() & #PB_Font_StrikeOut
lReturn$ + "|Strike"
EndIf
If SelectedFontStyle() & #PB_Font_Underline
lReturn$ + "|Underline"
EndIf
If SelectedFontStyle() & #PB_Font_Italic
lReturn$ + "|Italic"
EndIf
ProcedureReturn lReturn$
EndProcedure
ProcedureDLL.s GetFileMD5( aFile$ )
ProcedureReturn MD5FileFingerprint( aFile$ )
EndProcedureUsage in AutoIt:
Code
;===============================================================================
;
; Function Name: _GetFileMD5( $aFile )
; Description: Returns the MD5 checksum of a file
; Parameter(s): $aFile = path to file
; Requirement(s): pb_lib_dw.dll
; Return Value(s): MD5 checksum as string
; Author(s): Daniel W.
; DanielWahlmann@web.de
;
;===============================================================================Code
;===============================================================================
;
; Function Name: _SelectColor()
; Description: Creates a window where you can choose color
; Parameter(s): none
; Requirement(s): pb_lib_dw.dll
; Return Value(s): color in hex code
; Author(s): Daniel W.
; DanielWahlmann@web.de
;
;===============================================================================Code
;===============================================================================
;
; Function Name: _SelectFont( [ $aFont = "Arial"[ , $aSize = 12 ] ] )
; Description: Creates a window where you can choose the font and styles
; Parameter(s): $aFont = focused font
; $aSize = focused size
; Requirement(s): pb_lib_dw.dll
; Return Value(s): array
; Element 1 = Font name
; Element 2 = Font size
; Element 3 = Font color ( in hex )
; Element 4,5,6,7 = bold,strike,underlined,italic ( optional )
; Author(s): Daniel W.
; DanielWahlmann@web.de
;
;===============================================================================Code
;===============================================================================
;
; Function Name: _Encrypt( $aString [, $aMode = 1 [, $aLevel = 1 ] ] )
; Description: En-/Decrypts a string
; Parameter(s): $aString = String to be en-/decrypted
; $aMode = 1 for encrypt
; 0 for decrypt
; $aLevel = level of encryption
; Requirement(s): pb_lib_dw.dll
; Return Value(s): encrypted string
; Author(s): Daniel W.
; DanielWahlmann@web.de
;
;===============================================================================Auf Anfrage gebe ich gerne Beispiele zur Benutzung in Autoit.
Mfg Daniel W.
Ist vielleicht ne gute Möglichkeit, wenn man man eine Autoit-UDF ausgeliedern willl, damit sie beim decompilieren nicht entedeckt wird.