Beiträge von Alizame

[autoit]

#include <GUIConstantsEx.au3>
#include <IE.au3>
$reado = ""
$read2o = ""

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Linkverwalter", 433, 136, 192, 124)
$Group1 = GUICtrlCreateGroup("1", 8, 8, 185, 105)
$Input1 = GUICtrlCreateInput("linjk", 64, 24, 121, 21)
$Label1 = GUICtrlCreateLabel("LINK:", 16, 24, 31, 17)
$Label2 = GUICtrlCreateLabel("NAME:", 16, 48, 38, 17)
$Input2 = GUICtrlCreateInput("name", 64, 48, 121, 21)
$Button1 = GUICtrlCreateButton("1", 16, 72, 171, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("2", 200, 8, 185, 105)
$Input3 = GUICtrlCreateInput("link", 256, 24, 121, 21)
$Label3 = GUICtrlCreateLabel("LINK:", 208, 24, 31, 17)
$Label4 = GUICtrlCreateLabel("NAME:", 208, 48, 38, 17)
$Input4 = GUICtrlCreateInput("name", 256, 48, 121, 21)
$Button2 = GUICtrlCreateButton("1", 208, 72, 171, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$link1 = GUICtrlRead($Input1)
_IECreate( $link1 )
Case $Button2
$link2 = GUICtrlRead($Input3)
_IECreate( $link2 )
EndSwitch
$read=GUICtrlRead( $Input2 )
If $read <> $reado Then
GUICtrlSetData($Button1 , $read)
$reado = $read
EndIf

[/autoit] [autoit][/autoit] [autoit]

$read2=GUICtrlRead( $Input4 )
If $read2 <> $read2o Then
GUICtrlSetData($Button2 , $read2)
$read2o = $read
EndIf
Sleep(10)
WEnd

[/autoit]

[autoit]

#cs ----------------------------------------------------------------------------
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.0
Author: Aquaplant
Script Function:
_Iniread($spath[, $sSection[, $sKey]])
#ce ----------------------------------------------------------------------------
#Include <String.au3>
$AAA = _IniRead(@ScriptDir & "\Test.txt")
If @error Then
MsgBox(0, "", @error)
EndIf
For $i = 1 To $AAA[0]
MsgBox(0, $AAA[0], $AAA[$i])
Next
Func _IniRead($sPath, $sSection = "", $sKey = "")
Global $sSectionname[999]
Local $sArray = ""
If FileExists($sPath) = 0 Then
SetError(1, 1, "Requested file does not exist")
Else
If $sSection = "" And $sKey = "" Then
$oHandle = FileOpen($sPath,0)
$i = 0
$a = 0
While 1
$i += 1
$sLine = FileReadLine($oHandle, $i)
If @error Then
If FileGetSize($sPath) <= 1 Then
SetError(2, 2, "No contents in the file")
EndIf
$sSectionname[0] = $a
FileClose($oHandle)
ExitLoop
EndIf
If StringLeft($sLine, 1) = "[" Then
$sArray = ""
$a += 1
$aLine = StringSplit($sLine, "]")
For $j = 1 To $aLine[0] - 1
$sArray &= $aLine[$j] & "]"
Next
$sArray = StringTrimRight($sArray, 1)
$sArray = StringTrimLeft($sArray, 1)
$sSectionname[$a] = $sArray
EndIf
WEnd
Return $sSectionname
EndIf
If $sSection <> "" And $sKey = "" Then
Global $aKV[999][999]
$i = 0
$j = 0
While 1
$i += 1
$sLine = FileReadLine($sPath, $i)
If @error Then
SetError(3, 3, "Section does not exist")
EndIf
If StringLeft($sLine, StringLen($sSection) + 2) = "[" & $sSection & "]" Then
While 1
$i += 1
$j += 1
$sLine = FileReadLine($sPath, $i)
If StringLeft($sLine, 1) = "[" Or @error Then
$aKV[0][0] = $j
ExitLoop 2
Else
$sString = ""
$aString = StringSplit($sLine, "=")
$aKV[$j][0] = $aString[1]
For $k = 2 To $aString[0]
If $aString[$k] = "" Then
$aString[$k] = "="
EndIf
$sString &= $aString[$k] & "="
Next
$sString = StringTrimRight($sString, 1)
$aKV[$j][1] = $sString
EndIf
WEnd
EndIf
WEnd
Return $aKV
EndIf
If $sSection <> "" And $sKey <> "" Then
$sFile = FileRead($sPath)
$aA = _StringBetween($sFile, $sKey & "=", @CRLF)
If IsArray($aA) = 0 Then
$aA = _StringBetween($sFile, $sKey, @CR)
EndIf
$sValue = $aA[0]
Return $sValue
EndIf
EndIf
EndFunc

[/autoit]