Expand-Problem

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 238, 51, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 136, 8, 97, 17)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("Button1", 136, 24, 75, 25, $WS_GROUP)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
if IniRead(@ScriptDir & "\acc.config","Account","Check","NotFound") = "1" Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
Elseif IniRead(@ScriptDir & "\acc.config","Account","Check","NotFound") = "0" Then
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
EndIf

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_WinSetSize($Form1,238,400,10,7);fast open

EndSwitch
WEnd

;By GtaSpider
Func _WinSetSize($hWnd, $iWidth, $iHeigth, $iSleep = -1,$iStep = 4)
If $iSleep < 0 Then Return WinMove($hWnd,"",Default,Default,$iWidth,$iHeigth)
Local $i, $iStepW = $iStep, $iStepH = $iStep,$iSin,$i2,$iLastI
Local $aWinPos = WinGetPos($hWnd)
If $iWidth < $aWinPos[2] Then $iStepW *= -1
If $iHeigth < $aWinPos[3] Then $iStepH *= -1
Local $iDegToRad = 3.14159265358979/180
Local $iSinMulW = ($iWidth - $aWinPos[2]) / 2.5
Local $iSinMulH = ($iHeigth - $aWinPos[3]) / 2.5
If $iSinMulW < 0 Then $iSinMulW *= -1
If $iSinMulH < 0 Then $iSinMulH *= -1
If $iWidth <> $aWinPos[2] Then
For $i = $aWinPos[2] To $iWidth Step $iStepW
$iLastI = $i
$iSin = $i - $aWinPos[2]
$iSin = Sin($iDegToRad * (180*$iSin/($iWidth - $aWinPos[2])))
WinMove($hWnd,"",Default,Default,$i + ($iSin * $iSinMulW),Default)
Sleep($iSleep)
Next
If Mod($iWidth - $aWinPos[2],$iStep) Then
If $iStepW < 0 Then
$iStepW = -1
Else
$iStepW = 1
EndIf
For $i = $iLastI -1 To $iWidth Step $iStepW
WinMove($hWnd,"",Default,Default,$i,Default)
Next
EndIf
EndIf
If $iHeigth <> $aWinPos[3] Then
For $i = $aWinPos[3] To $iHeigth Step $iStepH
$iLastI = $i
$iSin = $i - $aWinPos[3]
$iSin = Sin($iDegToRad*(180*$iSin/($iHeigth - $aWinPos[3])))
WinMove($hWnd,"",Default,Default,Default,$i + ($iSin * $iSinMulH))
Sleep($iSleep)
Next
If Mod($iHeigth - $aWinPos[3],$iStep) Then
If $iStepH < 0 Then
$iStepH = -1
Else
$iStepH = 1
EndIf
For $i = $iLastI -1 To $iHeigth Step $iStepH
WinMove($hWnd,"",Default,Default,Default,$i)
Next
EndIf
EndIf
EndFunc