[beve]

вот что примерно мне нужно, чтобы было в окошке »

Вот:

Код:

#include <GUIConstants.au3>

Global $p
$Form1 = GUICreate("Test", 196, 96, 193, 173)
$Label1 = GUICtrlCreateLabel("Сделайте ваш выбор сер:", 24, 8, 166, 17)
$Radio1 = GUICtrlCreateRadio("$p=test1", 24, 32, 113, 17)
$Radio2 = GUICtrlCreateRadio("$p=test2", 24, 48, 113, 17)
$Ok_Button = GUICtrlCreateButton("ok", 24, 72, 57, 17, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
        Exit
Case $Ok_Button 
Select 
    Case GUICtrlRead($Radio1) = $GUI_CHECKED 
    $p="test1"
    Exitloop
    Case GUICtrlRead($Radio2) = $GUI_CHECKED 
    $p="test2"
    Exitloop
EndSelect 
    EndSwitch
WEnd
GUISetState(@SW_HIDE)
MsgBox(0, "Результат", "$p="&$p) 

Только непонятно, нужна кнопка ОК или не нужна, а чтобы при любом выборе скрипт сам продолжал свою работу?
Но если нужно без кнопки ОК, то вот:

Код:

#include <GUIConstants.au3>

Global $p
$Form1 = GUICreate("Test", 196, 96, 193, 173)
$Label1 = GUICtrlCreateLabel("Сделайте ваш выбор сер:", 24, 8, 166, 17)
$Radio1 = GUICtrlCreateRadio("$p=test1", 24, 32, 113, 17)
$Radio2 = GUICtrlCreateRadio("$p=test2", 24, 48, 113, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
    Exit
Case $Radio1 
        If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) Then 
        $p="test1"
    ExitLoop
    EndIf 
Case $Radio2 
    If BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) Then 
    $p="test2"
    ExitLoop
    EndIf
EndSwitch
WEnd
GUISetState(@SW_HIDE)
MsgBox(0, "Результат", "$p="&$p)