System::Call 'wininet.dll::InternetGetConnectedState(*i .r0, i 0) i.r1'

IntCmp $1 1 +1 Fail Fail

IntOp $2 $0 & 0x20

IntCmp $2 0x20 Disconnected Connected Connected

Connected:

MessageBox MB_OK "연결 됨"

goto Done

Disconnected:

MessageBox MB_OK "연결 되지 않음"

goto Done

Fail:

MessageBox MB_OK "연결 되지 않음"

Done:

Function GetWindowsVersion

   Push $R0
   Push $R1

   ClearErrors

   ReadRegStr $R0 HKLM \
   "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion

   IfErrors 0 lbl_winnt

   ; we are not NT
   ReadRegStr $R0 HKLM \
   "SOFTWARE\Microsoft\Windows\CurrentVersion" VersionNumber

   StrCpy $R1 $R0 1
   StrCmp $R1 '4' 0 lbl_error

   StrCpy $R1 $R0 3

   StrCmp $R1 '4.0' lbl_win32_95
   StrCmp $R1 '4.9' lbl_win32_ME lbl_win32_98

   lbl_win32_95:
     StrCpy $R0 '95'
   Goto lbl_done

   lbl_win32_98:
     StrCpy $R0 '98'
   Goto lbl_done

   lbl_win32_ME:
     StrCpy $R0 'ME'
   Goto lbl_done

   lbl_winnt:

   StrCpy $R1 $R0 1

   StrCmp $R1 '3' lbl_winnt_x
   StrCmp $R1 '4' lbl_winnt_x

   StrCpy $R1 $R0 3

   StrCmp $R1 '5.0' lbl_winnt_2000
   StrCmp $R1 '5.1' lbl_winnt_XP
   StrCmp $R1 '5.2' lbl_winnt_2003
   StrCmp $R1 '6.0' lbl_winnt_vista
   StrCmp $R1 '6.1' lbl_winnt_7 lbl_error
  
   lbl_winnt_x:
     StrCpy $R0 "NT $R0" 6
   Goto lbl_done

   lbl_winnt_2000:
     Strcpy $R0 '2000'
   Goto lbl_done

   lbl_winnt_XP:
     Strcpy $R0 'XP'
   Goto lbl_done

   lbl_winnt_2003:
     Strcpy $R0 '2003'
   Goto lbl_done

   lbl_winnt_vista:
     Strcpy $R0 'Vista'
   Goto lbl_done
  
   lbl_winnt_7:
     Strcpy $R0 '7'
   Goto lbl_done

   lbl_error:
     Strcpy $R0 ''
   lbl_done:

   Pop $R1
   Exch $R0

 FunctionEnd

!include "LogicLib.nsh"

!define StrStrAdv "!insertmacro StrStrAdv"

!macro StrStrAdv ResultVar String SubString SearchDirection \

       StrInclusionDirection IncludeSubString Loops CaseSensitive

  Push `${String}`

  Push `${SubString}`

  Push `${SearchDirection}`

  Push `${StrInclusionDirection}`

  Push `${IncludeSubString}`

  Push `${Loops}`

  Push `${CaseSensitive}`

  Call StrStrAdv

  Pop `${ResultVar}`

!macroend

Function StrStrAdv

/*After this point:

  ------------------------------------------

  $0 = String (input)

  $1 = SubString (input)

  $2 = SearchDirection (input)

  $3 = StrInclusionDirection (input)

  $4 = IncludeSubString (input)

  $5 = Loops (input)

  $6 = CaseSensitive (input)

  $7 = StringLength (temp)

  $8 = StrToSearchLength (temp)

  $9 = CurrentLoop (temp)

  $R0 = EndCharPos (temp)

  $R1 = StartCharPos (temp)

  $R2 = ResultVar (output)

  $R3 = Temp (temp)*/

  ;Get input from user

  Exch $6

  Exch

  Exch $5

  Exch

  Exch 2

  Exch $4

  Exch 2

  Exch 3

  Exch $3

  Exch 3

  Exch 4

  Exch $2

  Exch 4

  Exch 5

  Exch $1

  Exch 5

  Exch 6

  Exch $0

  Exch 6

  Push $7

  Push $8

  Push $9

  Push $R3

  Push $R2

  Push $R1

  Push $R0

  ; Clean $R0-$R3 variables

  StrCpy $R0 ""

  StrCpy $R1 ""

  StrCpy $R2 ""

  StrCpy $R3 ""

  ; Verify if we have the correct values on the variables

  ${If} $0 == ``

    SetErrors ;AdvStrStr_StrToSearch not found

    Goto AdvStrStr_End

  ${EndIf}

  ${If} $1 == ``

    SetErrors ;No text to search

    Goto AdvStrStr_End

  ${EndIf}

  ${If} $2 != <

    StrCpy $2 >

  ${EndIf}

  ${If} $3 != <

    StrCpy $3 >

  ${EndIf}

  ${If} $4 <> 0

    StrCpy $4 1

  ${EndIf}

  ${If} $5 <= 0

    StrCpy $5 0

  ${EndIf}

  ${If} $6 <> 1

    StrCpy $6 0

  ${EndIf}

  ; Find "AdvStrStr_String" length

  StrLen $7 $0

  ; Then find "AdvStrStr_SubString" length

  StrLen $8 $1

  ; Now set up basic variables

  ${If} $2 == <

    IntOp $R1 $7 - $8

    StrCpy $R2 $7

  ${Else}

    StrCpy $R1 0

    StrCpy $R2 $8

  ${EndIf}

  StrCpy $9 0 ; First loop

  ;Let's begin the search

  ${Do}

    ; Step 1: If the starting or ending numbers are negative

    ;         or more than AdvStrStr_StringLen, we return

    ;         error

    ${If} $R1 < 0

      StrCpy $R1 ``

      StrCpy $R2 ``

      StrCpy $R3 ``

      SetErrors ;AdvStrStr_SubString not found

      Goto AdvStrStr_End

    ${ElseIf} $R2 > $7

      StrCpy $R1 ``

      StrCpy $R2 ``

      StrCpy $R3 ``

      SetErrors ;AdvStrStr_SubString not found

      Goto AdvStrStr_End

    ${EndIf}

    ; Step 2: Start the search depending on

    ;         AdvStrStr_SearchDirection. Chop down not needed

    ;         characters.

    ${If} $R1 <> 0

      StrCpy $R3 $0 `` $R1

    ${EndIf}

    ${If} $R2 <> $7

      ${If} $R1 = 0

        StrCpy $R3 $0 $8

      ${Else}

        StrCpy $R3 $R3 $8

      ${EndIf}

    ${EndIf}

    ; Step 3: Make sure that's the string we want

    ; Case-Sensitive Support <- Use "AdvStrStr_Temp"

    ; variable because it won't be used anymore

    ${If} $6 == 1

      System::Call `kernel32::lstrcmpA(ts, ts) i.s` `$R3` `$1`

      Pop $R3

      ${If} $R3 = 0

        StrCpy $R3 1 ; Continue

      ${Else}

        StrCpy $R3 0 ; Break

      ${EndIf}

    ${Else}

      ${If} $R3 == $1

        StrCpy $R3 1 ; Continue

      ${Else}

        StrCpy $R3 0 ; Break

      ${EndIf}

    ${EndIf}

    ; After the comparasion, confirm that it is the

    ; value we want.

    ${If} $R3 = 1

      ;We found it, return except if the user has set up to

      ;search for another one:

      ${If} $9 >= $5

        ;Now, let's see if the user wants

        ;AdvStrStr_SubString to appear:

        ${If} $4 == 0

          ;Return depends on AdvStrStr_StrInclusionDirection

          ${If} $3 == <

            ; RTL

            StrCpy $R0 $0 $R1

          ${Else}

            ; LTR

            StrCpy $R0 $0 `` $R2

          ${EndIf}

          ${Break}

        ${Else}

          ;Return depends on AdvStrStr_StrInclusionDirection

          ${If} $3 == <

            ; RTL

            StrCpy $R0 $0 $R2

          ${Else}

            ; LTR

            StrCpy $R0 $0 `` $R1

          ${EndIf}

          ${Break}

        ${EndIf}

      ${Else}

        ;If the user wants to have more loops, let's do it so!

        IntOp $9 $9 + 1

        ${If} $2 == <

          IntOp $R1 $R1 - 1

          IntOp $R2 $R2 - 1

        ${Else}

          IntOp $R1 $R1 + 1

          IntOp $R2 $R2 + 1

        ${EndIf}

      ${EndIf}

    ${Else}

      ; Step 4: We didn't find it, so do steps 1 thru 3 again

      ${If} $2 == <

        IntOp $R1 $R1 - 1

        IntOp $R2 $R2 - 1

      ${Else}

        IntOp $R1 $R1 + 1

        IntOp $R2 $R2 + 1

      ${EndIf}

    ${EndIf}

  ${Loop}

  AdvStrStr_End:

  ;Add 1 to AdvStrStr_EndCharPos to be supportable

  ;by "StrCpy"

  IntOp $R2 $R2 - 1

  ;Return output to user

  Exch $R0

  Exch

  Pop $R1

  Exch

  Pop $R2

  Exch

  Pop $R3

  Exch

  Pop $9

  Exch

  Pop $8

  Exch

  Pop $7

  Exch

  Pop $6

  Exch

  Pop $5

  Exch

  Pop $4

  Exch

  Pop $3

  Exch

  Pop $2

  Exch

  Pop $1

  Exch

  Pop $0

FunctionEnd

Section

;${StrStrAdv} 리턴받을변수 문자열 뺄문자열 찾을방향 뺄문자열자리부터리턴받을문자열의방향 뺄문자열포함할건지 문자열중에뺄문자열을몇번지나칠건지 대소문자구분할건지

;${StrStrAdv} "ResultVar" "String" "SubString" "SearchDirection" "StrInclusionDirection" "IncludeSubString" "Loops" "CaseSensitive"

${StrStrAdv} $R1 "test_value" "_" ">" ">" "0" "0" "0"

;$R1 == value

SectionEnd