Step7 No-Know-How

**funkey**

Hallo Freunde!

Hab mal wieder ein Skript von mir auf den Stand der Technik gebracht.

Das Programm kann Bausteine aus einem Simatic Step7 Programm sperren und entsperren, also den sogenannten KNOW-HOW-PROTECT ein- und ausschalten.
Dabei wird prinzipiel in einer DBase IV-Datenbank ein Bit pro Baustein umgeschrieben.

Manuelle Arbeitsweise

S7 Knowhow-Protect entfernen

1)
Datei C:\Programme\Siemens\Step\S7Proj\PROJEKTNAME\ombstx\offline\00000001\SUBBLK.DBF mir einem Hexeditor (z.B. Winhex oder HEX-Wizard kostenlos) öffnen
2)
Nach ASCII-Zeichenkette suchen z.B. 1400100 für FB100 (140=FB, 120=FC, 0100= Bausteinnummer)
d.h. 140 0059 = FB 59. HexWizard benutzen => t 1400059 (t = sucht nach ASCI-Code) = FB59
3)
zur gefundenen Adresse 84dez (54hex) dazuzählen und zu dieser Adresse wechseln (hier sollte 33 stehen)
4)
Diesen Wert 33 durch 30 ersetzen
5)
Datei abspeichern.

Screenshot

autoit.de/wcf/attachment/6170/

Programme, die das gleiche leisten, sind etwa Step7Key um 59,50 Euro und S7CanOpener um 50,00 Euro.
Außerdem kann meine Version zusätzlich noch die Symbolik zu den Bausteinen anzeigen.

Ich hoffe, dass es hier im Forum noch Step7-Programmierer gibt, die mit dem Programm etwas anzufangen wissen.
Das Programm darf natürlich frei verwendet und weitergegeben werden, ich möchte aber, dass es nicht verändert wird.

Viel Spaß!

Update-Infos

Update auf Version 2.0.1 ( 24.09.2009)
* Hatte noch ein überflüssiges _ArrayDisplay im Skript
* Kleinigkeit beim Gui-Resizing geändert
* Icon getauscht

Update auf Version 2.1.0 ( 25.09.2009)
* Bausteine über Bausteinnummer 9999 wurden nicht angezeigt
* falsche Anzeige von Bausteinen im Sonderfall behoben

Danke für die bisherigen 12 Downloads.

Blume

Hi funkey

Also STEP-7 Programmierer gibt es noch (mich, auch wenn nicht direkt ;-))
Also das Programm ist große Klasse, Habe es mal mit verschiedenen Projekten Getestet!
Klappt Wunderbar!

Mach Weiter so

**Stilgar**

Hallo,

ups das ist ja erschreckend wie schlecht KNOW-HOW-PROTECT "arbeitet" - kann ich es ja gleich weglassen und alles in "hoch optimierter " AWL reintackern, das ist dann besserer Know-How Schutz

Dennoch danke

**funkey**

Hab noch eine Kleinigkeit geändert, deswegen neue Version siehe Post#1

@DjDominik: Vielen Dank für's Testen. Freut micht wenn es dir gefällt.
Stilgar: Ja, du hast recht. Eine 'anständige' AWL ist komplizierter als als jeder Know-How Schutz

Blume

Hi funkey.
Ich nochmal, ich habe da mal was für dich Gemacht!

[Blockierte Grafik: http://dpsoft.bplaced.net/Old/BoxService/BOX.png]

Hoffe sie gefällt dir

Donni

Hi,

Erstmal vielen Dank für das Tool.

Ich habe irgendwann einmal die Version 2.1 abgespeichert.
Aktuell kann ich in diesem Thread keinen Quellcode mehr finden.

Problem:
Ich erhalte bei vielen Projekten "Fehler", "Ein unerwarteter Fehler ist aufgetreten! aus der Func _ReadProject($sPrj)
Bei anderen Projekten klappt das zwar, jedoch kommt dann Fehler beim Öffnen der Symbolik-Datei.
In allen Fällen werden mir oben links die Bausteinordner anzeigt und nichts weiter ausser der jeweiligen Fehlermeldung.

Liegt es an der aktuellen AutoIt Version oder haben sich die S7-Projekte strukturell verändert?
Mittels HEX-Editor geht es jedenfalls noch.

Edit: mit autoit-v3.2.13.6 läufts!
Bleibt nur noch die Frage wo die Quellen hier hin sind?

Markus1995

Hallo,

habe große Interesse an dem AutoIT Code, leider finde ich in hier nicht.

Kannst du in vielleicht nochmal hochladen?

MFG

Markus

kunigunde

habe hier noch eine Quell datei, welcher Stand das ist weiß ich nicht.

C

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=No-Know-How.ico
#AutoIt3Wrapper_outfile=Step7 No-Know-How.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Step7 No-Know-How
#AutoIt3Wrapper_Res_Description=Step7 No-Know-How
#AutoIt3Wrapper_Res_Fileversion=2.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Christoph Fankhauser
#AutoIt3Wrapper_Res_Language=3079
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Projektbeginn 26.04.2008
; Version 1.0 09.05.2008 Erste brauchbare Version
; Version 1.1 13.05.2008 Symbolikordner variabel gemacht
; Version 1.2 15.05.2008 Ordneranzeige eingebunden, noch keine Auswahl
; Version 1.3 16.05.2008 Ordnerauswahl implementiert, Symbolik variabel gemacht (723)
; Version 1.4 26.05.2008 Filter eingebaut
; Version 1.5 31.01.2009 Bibliotheken öffnen eingebaut, Kleinigkeiten ausgebessert, auf "ExpandVarStrings" umgestellt
; Version 2.0 23.09.2009 GUI wird vor FileOpenDialog angezeigt
;Menü erstellt
;Es ist nun möglich mehrmals Projekte zu öffnen
;MsgBoxen überarbeitet
;Datenbausteine und Organisationsbausteine hinzugefügt
;Programm auf GUISetOnEvent-Modus umgestellt
;Baustein-Filter verbessert
;viele Kleinigkeiten
; Version 2.1 25.09.2009 Bausteine über Bausteinnummer 9999 wurden nicht angezeigt
;falsche Anzeige von Bausteinen im Sonderfall behoben
;
; Copyright Christoph Fankhauser aka funkey




#include <Array.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GuiListView.au3>
#include <GuiListBox.au3>
#include <GUIConstantsEx.au3>


Opt("GUIOnEventMode", 1)
Opt("ExpandVarStrings", 1)


Global $AppName = "Step7 No-Know-How"
Global $Version = "V2.1.0"
Global $VersionDate = "Septemper 2009"
Global $Coder = "Christoph Fankhauser"
If $CMDLine[0] > 0 Then Exit _Help()
Global $ProjectDir = RegRead("HKCU\Software\SIEMENS\STEP7\2.0\Applications\s7tgtopx\Settings", "ProjectDir")


Global $Ordner, $FC[1][6], $FB[1][6], $OB[1][6], $DB[1][6], $Daten, $Size, $Datenbank, $AktPath


Global $FrameHeight = _WinAPI_GetSystemMetrics(4) ; Caption Height
Global $gui = GUICreate("$AppName$  $Version$", 800, 782 + $FrameHeight, -1, -1, 0x60000)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Ende")
GUIRegisterMsg($WM_GETMINMAXINFO, "MY_WM_GETMINMAXINFO")
GUISetHelp(@ScriptFullPath & " /?") ;funktioniert natürlich nur wenn das Skript kompiliert ist
Global $statuslabel = GUICtrlCreateLabel("Kein Projekt ausgewählt", 0, 744, 800, 16, BitOR($SS_SUNKEN, $SS_CENTERIMAGE, $SS_CENTER))
GUICtrlSetResizing(-1, 578)
GUICtrlSetBkColor(-1, 0xA0C3EB)
Global $menuPrj = GUICtrlCreateMenu("&Projekt")
GUICtrlCreateMenuItem("Ö&ffnen", $menuPrj)
GUICtrlSetOnEvent(-1, "_OpenProject")
GUICtrlCreateMenuItem("Be&enden", $menuPrj)
GUICtrlSetOnEvent(-1, "_Ende")
Global $menuInfo = GUICtrlCreateMenu("&Info")
GUICtrlCreateMenuItem("&Hilfe F1", $menuInfo)
GUICtrlSetOnEvent(-1, "_Help")
GUICtrlCreateMenuItem("&Info über $AppName$", $menuInfo)
GUICtrlSetOnEvent(-1, "_About")


Global $OrdnerList = GUICtrlCreateList("", 2, 0, 106, 150)
GUICtrlSetResizing(-1, 802)
GUICtrlSetOnEvent(-1, "_ChangePath")
Global $hOrdnerList = GUICtrlGetHandle(-1)


Global $listview = GUICtrlCreateListView("Baustein|Schutz|Symbolischer Name|Symbolkommentar|Author", 110, 0, 688, 740)
GUICtrlSetResizing(-1, 102)
Global $hLV = GUICtrlGetHandle(-1)
Global $button = GUICtrlCreateButton("  Sperren@LF@Entsperren", 2, 195, 106, 40, BitOR($BS_MULTILINE, $BS_DEFPUSHBUTTON))
GUICtrlSetResizing(-1, 802)
GUICtrlSetOnEvent(-1, "_Sperren")


GUICtrlCreateGroup('Baustein-Filter', 2, 250, 106, 140)
GUICtrlSetResizing(-1, 802)
Global $OB_on = GUICtrlCreateCheckbox('OB', 15, 270)
Global $FB_on = GUICtrlCreateCheckbox('FB', 15, 290)
Global $FC_on = GUICtrlCreateCheckbox('FC', 60, 290)
Global $DB_on = GUICtrlCreateCheckbox('DB', 60, 270)
Global $View_prot = GUICtrlCreateRadio('geschützte', 10, 340, 90)
Global $View_unprot = GUICtrlCreateRadio('ungeschützte', 10, 360, 90)
Global $View_all = GUICtrlCreateRadio('alle', 10, 320, 90)
For $i = $OB_on To $View_all
GUICtrlSetResizing($i, 802)
GUICtrlSetState($i, $GUI_CHECKED)
GUICtrlSetOnEvent($i, "_Filter")
Next


Global $warten = GUICtrlCreateLabel("Bitte warten!", 4, 160, 102, 30, 0x1)
GUICtrlSetResizing($i, 802)
GUICtrlSetFont(-1, 14)
_Wait(True)
GUICtrlSetState(-1, $GUI_HIDE)


GUISetState()


_OpenProject()


While 1
Sleep(10000)
WEnd


Func _OpenProject()
Local $prj = FileOpenDialog("$AppName$ - Projekt auswählen", $ProjectDir, "Step7 Projekt oder Bibliothek (*.s7p; *.s7l)", 3, "", $gui)
If $prj <> "" Then
GUICtrlSetState($warten, $GUI_SHOW)
GUICtrlSetData($statuslabel, "Projekt: " & _ReadPrjName($prj))
_ReadProject($prj)
Return 1
Else
Return 0
EndIf
EndFunc   ;==>_OpenProject


Func _ReadPrjName($sPrj)
Local $titel = StringTrimLeft(FileRead($sPrj, 29), 5)
Local $test = StringInStr($titel, Chr(02))
If $test > 0 Then $titel = StringLeft($titel, $test - 1)
Return $titel
EndFunc   ;==>_ReadPrjName


Func _ReadProject($sPrj)
Local $Index = 0
$AktPath = ""
Global $Size[1]
$Ordner = _getPrj()
GUICtrlSetData($OrdnerList, "")
For $i = 0 To UBound($Ordner) - 1
GUICtrlSetData($OrdnerList, $Ordner[$i])
Next
$Index = _ArrayMaxIndex($Size)
If _GUICtrlListBox_SetCurSel($hOrdnerList, _ArrayMaxIndex($Size)) >= 0 Then
_ChangePath()
Else
MsgBox(16, "Fehler", "Ein unerwarteter Fehler ist aufgetreten!")
EndIf
EndFunc   ;==>_ReadProject


Func _AddBlocks($aBlocks, $sBlock)
Local $Item
For $k = 0 To UBound($aBlocks) - 1
$Item = ""
If $aBlocks[$k][2] = "0x33" Then
$Schutz = "ja"
ElseIf $aBlocks[$k][2] = "0x30" Then
$Schutz = "nein"
Else
ContinueLoop
EndIf
If $aBlocks[$k][0] <> "" Or ($aBlocks[$k][0] = "0" And ($sBlock = 'FC' Or $sBlock = 'FB')) Then
If BitAND(GUICtrlRead($View_all), $GUI_CHECKED) Then
$Item = $sBlock & $aBlocks[$k][0] & "|" & $Schutz & "|" & $aBlocks[$k][4] & "|" & $aBlocks[$k][5] & "|" & $aBlocks[$k][3]
ElseIf BitAND(GUICtrlRead($View_prot), $GUI_CHECKED) Then
If $Schutz = 'ja' Then $Item = $sBlock & $aBlocks[$k][0] & "|" & $Schutz & "|" & $aBlocks[$k][4] & "|" & $aBlocks[$k][5] & "|" & $aBlocks[$k][3]
Else
If $Schutz = 'nein' Then $Item = $sBlock & $aBlocks[$k][0] & "|" & $Schutz & "|" & $aBlocks[$k][4] & "|" & $aBlocks[$k][5] & "|" & $aBlocks[$k][3]
EndIf
EndIf
If $Item <> "" Then GUICtrlCreateListViewItem($Item, $listview)
Next
EndFunc   ;==>_AddBlocks


Func _Sperren()
Local $Adresse, $Zeile, $pressed = GUICtrlRead($listview), $text = GUICtrlRead($pressed)
If $text = '0' Then
MsgBox(64, "Auswählen", "Bitte wählen Sie einen Baustein aus")
Return 0
EndIf
$Zeile = StringSplit($text, "|", 2)
Switch StringLeft($Zeile[0], 2)
Case "OB"
For $i = 0 To UBound($OB) - 1
If $OB[$i][0] = StringTrimLeft($Zeile[0], 2) Then
$Adresse = $OB[$i][1]
ExitLoop
EndIf
Next
Case "FB"
For $i = 0 To UBound($FB) - 1
If $FB[$i][0] = StringTrimLeft($Zeile[0], 2) Then
$Adresse = $FB[$i][1]
ExitLoop
EndIf
Next
Case "FC"
For $i = 0 To UBound($FC) - 1
If $FC[$i][0] = StringTrimLeft($Zeile[0], 2) Then
$Adresse = $FC[$i][1]
ExitLoop
EndIf
Next
Case "DB"
For $i = 0 To UBound($DB) - 1
If $DB[$i][0] = StringTrimLeft($Zeile[0], 2) Then
$Adresse = $DB[$i][1]
ExitLoop
EndIf
Next
Case Else
MsgBox(16, "Fehler", "Ein unerwarteter Fehler ist aufgetreten!")
Return 1
EndSwitch
$Date_Teil1 = StringLeft($Daten, $Adresse + 86)
$Date_Teil2 = StringTrimLeft($Daten, $Adresse + 87)
If StringInStr($text, "|nein|") Then
$Bindeglied = Chr(51)
GUICtrlSetData($pressed, "|ja")
If StringLeft($Zeile[0], 2) = "FC" Then
$FC[$i][2] = '0x33'
ElseIf StringLeft($Zeile[0], 2) = "FB" Then
$FB[$i][2] = '0x33'
ElseIf StringLeft($Zeile[0], 2) = "DB" Then
$DB[$i][2] = '0x33'
ElseIf StringLeft($Zeile[0], 2) = "OB" Then
$OB[$i][2] = '0x33'
EndIf
ElseIf StringInStr($text, "|ja|") Then
$Bindeglied = Chr(48)
GUICtrlSetData($pressed, "|nein")
If StringLeft($Zeile[0], 2) = "FC" Then
$FC[$i][2] = '0x30'
ElseIf StringLeft($Zeile[0], 2) = "FB" Then
$FB[$i][2] = '0x30'
ElseIf StringLeft($Zeile[0], 2) = "DB" Then
$DB[$i][2] = '0x30'
ElseIf StringLeft($Zeile[0], 2) = "OB" Then
$OB[$i][2] = '0x30'
EndIf
Else
MsgBox(16, "Fehler", "Ein unerwarteter Fehler ist aufgetreten!")
Return 1
EndIf
If IsDeclared("Bindeglied") Then
$NewDaten = $Date_Teil1 & $Bindeglied & $Date_Teil2
$Open = FileOpen($Datenbank, 18)
FileWrite($Open, $NewDaten)
FileClose($Open)
EndIf
$Open = FileOpen($Datenbank, 4)
$Daten = FileRead($Datenbank, FileGetSize($Datenbank))
FileClose($Open)
EndFunc   ;==>_Sperren


Func _Filter()
_Wait(True)
_GUICtrlListView_DeleteAllItems($hLV)
If BitAND(GUICtrlRead($OB_on), $GUI_CHECKED) Then _AddBlocks($OB, "OB")
If BitAND(GUICtrlRead($FB_on), $GUI_CHECKED) Then _AddBlocks($FB, "FB")
If BitAND(GUICtrlRead($FC_on), $GUI_CHECKED) Then _AddBlocks($FC, "FC")
If BitAND(GUICtrlRead($DB_on), $GUI_CHECKED) Then _AddBlocks($DB, "DB")
_GUICtrlListView_SetColumnWidth($hLV, 2, $LVSCW_AUTOSIZE)
_GUICtrlListView_SetColumnWidth($hLV, 3, $LVSCW_AUTOSIZE)
_Wait(False)
EndFunc   ;==>_Filter


Func _getPrj()
Local $aOrdner[1]
Local $search = FileFindFirstFile(@WorkingDir & "/ombstx/offline/000*")
Local $m = 0
While 1
$aOrdner[$m] = FileFindNextFile($search)
If @error Then ExitLoop
$Size[$m] = FileGetSize(@WorkingDir & "/ombstx/offline/" & $aOrdner[$m] & "/SUBBLK.DBF")
If $Size[$m] > 1000 Then
ReDim $aOrdner[UBound($aOrdner) + 1]
ReDim $Size[UBound($Size) + 1]
$m += 1
EndIf
WEnd
If UBound($aOrdner) > 1 Then ReDim $aOrdner[UBound($aOrdner) - 1]
If UBound($Size) > 1 Then ReDim $Size[UBound($Size) - 1]
Return $aOrdner
EndFunc   ;==>_getPrj


Func _FileGetSource($sFile, $sDesc)
If $sFile = "" And $sDesc = "Symbolik-Datei" Then Return MsgBox(64, 'Info', 'Die Symbolik-Datei ist zu groß und wird aus Geschwindigkeitsgründen nicht geladen!', 3)
Local $sResult, $hFile = FileOpen($sFile, 0)
If $hFile = -1 Then
MsgBox(16, "Fehler", "Fehler beim Öffnen der $sDesc$")
Return ""
EndIf
$sResult = FileRead($hFile)
FileClose($hFile)
Return $sResult
EndFunc   ;==>_FileGetSource


Func _getBlockInfos($sDaten, $sSymbolik, $sType, $sName)
Local $aBlock[1][6], $msg = "", $Nr = ""
Local $i = 0
While 1
$iAdresse = StringInStr($sDaten, $sType, 1, $i + 1)
If $iAdresse <> 0 Then
$Nr = StringLeft(StringTrimLeft($sDaten, $iAdresse + 4), 5)
$aBlock[UBound($aBlock) - 1][0] = Int($Nr) ;Bausteinnummer
$aBlock[UBound($aBlock) - 1][1] = $iAdresse ;Adresse
$aBlock[UBound($aBlock) - 1][2] = Binary(StringLeft(StringTrimLeft($sDaten, $iAdresse + 86), 1)) ;Schutz
$aBlock[UBound($aBlock) - 1][3] = StringLeft(StringTrimLeft($sDaten, $iAdresse + 87), 8) ;Author
If StringLeft(StringTrimLeft($sDaten, $iAdresse - 18), 1) <> "*" And ($aBlock[UBound($aBlock) - 1][2] = "0x30" Or $aBlock[UBound($aBlock) - 1][2] = "0x33") And StringIsInt($Nr) Then
$msg = ""
For $k = 7 To StringLen($aBlock[UBound($aBlock) - 1][0]) + 1 Step -1
$msg &= " "
Next
$Sym_Adr = StringInStr($sSymbolik, $sName & $msg & $aBlock[UBound($aBlock) - 1][0] & "   " & $sName & $msg & $aBlock[UBound($aBlock) - 1][0])
If $Sym_Adr <> 0 Then
$aBlock[UBound($aBlock) - 1][4] = StringLeft(StringTrimLeft($sSymbolik, $Sym_Adr - 25), 24) ;Name
$aBlock[UBound($aBlock) - 1][5] = StringLeft(StringTrimLeft($sSymbolik, $Sym_Adr + 157), 62) ;Symbolik
Else
$aBlock[UBound($aBlock) - 1][4] = "" ;Name
$aBlock[UBound($aBlock) - 1][5] = "" ;Symbolik
EndIf


ReDim $aBlock[UBound($aBlock) + 1][6]
EndIf
$i += 1
Else
If UBound($aBlock) > 1 Then
ReDim $aBlock[UBound($aBlock) - 1][6]
Else
$aBlock[UBound($aBlock) - 1][0] = ""
EndIf
ExitLoop
EndIf
WEnd
Return $aBlock
EndFunc   ;==>_getBlockInfos


Func _ChangePath()
If $AktPath = GUICtrlRead($OrdnerList) Then Return
_Wait(True)
_GUICtrlListView_DeleteAllItems($hLV)
$AktPath = GUICtrlRead($OrdnerList)
$Datenbank = @WorkingDir & "\ombstx\offline\" & $AktPath & "\SUBBLK.DBF"
$Daten = _FileGetSource($Datenbank, "Datenbank")
$Symboliken = @WorkingDir & "\YDBs\SYMLISTS.DBF"
$Symauswahl = _FileGetSource($Symboliken, "Symbolik-Auswahldatei")
$Symordner = StringLeft(StringTrimLeft($Symauswahl, 723 * _GUICtrlListBox_GetCurSel($hOrdnerList) + 391), 5) + 0
$Symdatei = @WorkingDir & "\YDBs\" & $Symordner & "\SYMLIST.DBF"
If FileGetSize($Symdatei) > 1000000 Then $Symdatei = "" ;--> keine Symbolik bei großen Projekten ;)
$Symbolik = _FileGetSource($Symdatei, "Symbolik-Datei")


$OB = _getBlockInfos($Daten, $Symbolik, "00008", "OB")
_ArraySort($OB)
$DB = _getBlockInfos($Daten, $Symbolik, "00010", "DB")
_ArraySort($DB)
$FC = _getBlockInfos($Daten, $Symbolik, "00012", "FC")
_ArraySort($FC)
$FB = _getBlockInfos($Daten, $Symbolik, "00014", "FB")
;~  _ArraySort($FB)


If BitAND(GUICtrlRead($OB_on), $GUI_CHECKED) Then _AddBlocks($OB, "OB")
If BitAND(GUICtrlRead($FB_on), $GUI_CHECKED) Then _AddBlocks($FB, "FB")
If BitAND(GUICtrlRead($FC_on), $GUI_CHECKED) Then _AddBlocks($FC, "FC")
If BitAND(GUICtrlRead($DB_on), $GUI_CHECKED) Then _AddBlocks($DB, "DB")


_GUICtrlListView_SetColumnWidth($hLV, 2, $LVSCW_AUTOSIZE)
_GUICtrlListView_SetColumnWidth($hLV, 3, $LVSCW_AUTOSIZE)
_Wait(False)
EndFunc   ;==>_ChangePath


Func _Wait($iWait)
If $iWait Then
GUICtrlSetState($button, $GUI_DISABLE)
GUICtrlSetBkColor($statuslabel, 0xA0C3EB)
GUICtrlSetState($warten, $GUI_SHOW)
GUICtrlSetState($OrdnerList, $GUI_DISABLE)
For $i = $OB_on To $View_all
GUICtrlSetState($i, $GUI_DISABLE)
Next
Else
GUICtrlSetState($button, $GUI_ENABLE)
GUICtrlSetBkColor($statuslabel, 0x00FFFF)
GUICtrlSetState($warten, $GUI_HIDE)
GUICtrlSetState($OrdnerList, $GUI_ENABLE)
For $i = $OB_on To $View_all
GUICtrlSetState($i, $GUI_ENABLE)
Next
EndIf
EndFunc   ;==>_Wait


Func MY_WM_GETMINMAXINFO($hWnd, $msg, $wParam, $lParam)
$minmaxinfo = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $lParam)
DllStructSetData($minmaxinfo, 7, 507) ; min X
DllStructSetData($minmaxinfo, 8, 437 + $FrameHeight) ; min Y
DllStructSetData($minmaxinfo, 9, 900) ; max X
DllStructSetData($minmaxinfo, 10, 900) ; max Y
Return 0
EndFunc   ;==>MY_WM_GETMINMAXINFO


Func _About()
MsgBox(64, "$AppName$  $Version$    ©$Coder$    $VersionDate$", "$AppName$ ist Freeware.@CRLF@" & _
"Das Programm darf frei kopiert werden. Es darf jedoch nicht ohne meine Genehmigung verändert werden.@CRLF@" & _
"Ich übernehme im Falle von Datenverlust oder anderen Schäden keine Haftung.@CRLF@@CRLF@" & _
"Kontakt: Christoph Fankhauser@CRLF@ funkey80 [at] hotmail [dot] com@CRLF@ $VersionDate$")
EndFunc   ;==>_About


Func _Help()
MsgBox(64, "$AppName$  $Version$    ©$Coder$    $VersionDate$", "Mit diesem Programm " & _
"kann der Know-How-Schutz von Bausteinen in Step7-Projekten gesetzt und rückgesetzt werden.@CRLF@" & _
"Unterstützte Bausteine sind Organisationsbausteine (OB), Funktionsbausteine (FB), Funktionen (FC) und Datenbausteine (DB) .@CRLF@" & _
"Obwohl das Programm sorgfältig getestet ist, kann ich nicht ausschließen, dass es zu Fehlfunktionen kommen kann.@CRLF@" & _
"Machen Sie deshalb immer eine Sicherheitskopie Ihres Step7-Projektes bevor Sie es mit diesem Programm bearbeiten.@CRLF@" & _
"Wenn es Probleme mit z.B. der Anzeige der Symbolik gibt, kann eine Reorganisation des Projektes dies im Normalfall beheben.@CRLF@" & _
"Ich übernehme im Falle von Datenverlust oder anderen Schäden keine Haftung.@CRLF@@CRLF@" & _
"Kontakt: Christoph Fankhauser@CRLF@ funkey80 [at] hotmail [dot] com@CRLF@ $VersionDate$")
EndFunc   ;==>_Help


Func _Ende()
Exit
EndFunc   ;==>_Ende

Alles anzeigen

minismurf

Hallo,

danke für den Quellcode.
Bei mir fehlte noch ein Include zur Ausführung, danach klappte es wunderbar.

#include <GUIConstantsEx.au3>

Gruß
smurf