fix

Powershell/Shecan OFF.ps1

@@ -1,19 +1,22 @@
-Get-DnsClientServerAddress -AddressFamily IPv4
-Write-Host ""
-Write-Host 'Enter Network Adapter Index Number From Above List' -ForegroundColor Yellow
-$I = Read-Host -Prompt 'Interface Index'
-Set-DnsClientServerAddress -InterfaceIndex $I -ResetServerAddresses
-Write-Host "Network DNS RESET Successfully."
-
-
-$inputFound = $false
-Do {
-    $I = Read-Host -Prompt 'Interface Index'
-
-    If ($I -ne "" -and $I -ne $null) {
-        Set-DnsClientServerAddress -InterfaceIndex $I -ResetServerAddresses
-        Write-Host "Network DNS RESET Successfully."
-        $inputFound = $true
+try{
+    Get-DnsClientServerAddress -AddressFamily IPv4
+    Write-Host ""
+    Write-Host 'Enter Network Adapter Index Number From Above List' -ForegroundColor Yellow
+    $inputFound = $false
+    Do {
+        $I = Read-Host -Prompt 'Interface Index'
+        If ($I -ne "" -and $I -ne $null) {
+            Set-DnsClientServerAddress -InterfaceIndex $I -ResetServerAddresses
+            Clear-Host
+            Write-Host "Network DNS RESET Successfully." -ForegroundColor Green
+            $inputFound = $true
+        }
     }
+    While ($inputFound -eq $false)
+}
+catch{
+    Clear-Host
+    Write-Host "**** An error occurred:" -ForegroundColor Red
+    Write-Host $_ -ForegroundColor Red
+    Write-Host $_.ScriptStackTrace -ForegroundColor Red
 }
-While ($inputFound -eq $false)

Powershell/Shecan ON.ps1

@@ -1,28 +1,37 @@
-$WebResponse = Invoke-WebRequest "https://shecan.ir"
-$DnsElementList = $WebResponse.AllElements | Where {$_.Class -eq "shecan-dns-ips"}
-$DnsList = @()
-for ($Index = 1; $Index -le 2; $Index++)
-{
-    Write-Host $DnsElementList[$Index-1].innerText -ForegroundColor Red
-    $DnsList += '"' + $DnsElementList[$Index-1].innerText + '"'
-}
-$Value = '(' + ($DnsList -join ',') + ')'
-
-Get-DnsClientServerAddress -AddressFamily IPv4
-Write-Host ""
-Write-Host $Value -ForegroundColor Red
-Write-Host 'Enter Network Adapter Index Number From Above List' -ForegroundColor Yellow
-
-$inputFound = $false
-Do {
-    $I = Read-Host -Prompt 'Interface Index'
-
-    If ($I -ne "" -and $I -ne $null) {
-        Invoke-Expression "Set-DnsClientServerAddress -InterfaceIndex $I -ServerAddresses $Value"
-        Write-Host "Network DNS SET Successfully."
-        $inputFound = $true
+try{
+    Get-DnsClientServerAddress -AddressFamily IPv4
+    Write-Host ""
+    Write-Host 'Enter Network Adapter Index Number From Above List' -ForegroundColor Yellow
+    $inputFound = $false
+    Do {
+        $I = Read-Host -Prompt 'Interface Index'
+        If ($I -ne "" -and $I -ne $null) {
+            Write-Host "Please wait ..."
+            Clear-Host
+            Write-Host "Getting DNS(s) from Shecan.ir ..." -ForegroundColor Gray
+            $WebResponse = Invoke-WebRequest "https://shecan.ir" -ForegroundColor Gray
+            $DnsElementList = $WebResponse.AllElements | Where {$_.Class -eq "shecan-dns-ips"}
+            $DnsList = @()
+            for ($Index = 1; $Index -le 2; $Index++)
+            {
+                Write-Host "DNS"$Index":" $DnsElementList[$Index-1].innerText -ForegroundColor Red
+                $DnsList += '"' + $DnsElementList[$Index-1].innerText + '"'
+            }
+            $Value = '(' + ($DnsList -join ',') + ')'
+            Invoke-Expression "Set-DnsClientServerAddress -InterfaceIndex $I -ServerAddresses $Value"
+            Clear-Host
+            Write-Host "Network DNS SET Successfully." -ForegroundColor Green
+            $inputFound = $true
+        }
     }
+    While ($inputFound -eq $false)
 }
-While ($inputFound -eq $false)
+catch{
+    Clear-Host
+    Write-Host "**** An error occurred:" -ForegroundColor Red
+    Write-Host $_ -ForegroundColor Red
+    Write-Host $_.ScriptStackTrace -ForegroundColor Red
+}
+
 
 

README.md

@@ -5,7 +5,7 @@
 
 - This tool will needs internet to get original Shecan DNS IPs from website: https://shecan.ir
 
-- Please run shortcuts or batch files as administrator.
+- Please run batch files as administrator.
 
 
 

Readme.txt

@@ -5,4 +5,4 @@ A utility to automatically set/unset Shecan DNS(s).
 
 This tool will needs internet to get original Shecan DNS IPs from website: https://shecan.ir
 
-Please run shortcuts or batch files as administrator.
+Please run batch files as administrator.

Shecan OFF.bat

@@ -0,0 +1,5 @@
+@echo off
+cd /D %~dp0
+cls
+Powershell.exe -f "Powershell\Shecan OFF.ps1"
+pause

Shecan ON.bat

@@ -0,0 +1,5 @@
+@echo off
+cd /D %~dp0
+cls
+Powershell.exe -f "Powershell\Shecan ON.ps1"
+pause