Advertisement
Guest User

Form1.vb

a guest
Nov 13th, 2021
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 2.04 KB | None | 0 0
  1. Public Class Form1
  2.     Public Property SoloCommand As String
  3.     Public Property PoolCommand As String
  4.     Public Property MiningClient As Object
  5.  
  6.  
  7.  
  8.     Private Function Runscript(text As String) As Object
  9.         Throw New NotImplementedException()
  10.     End Function
  11.  
  12.     Private Sub SoloRadio_CheckedChanged(sender As Object, e As EventArgs) Handles SoloRadio.CheckedChanged
  13.         Me.PrivKey.Visible = True
  14.         Me.PrivKeyLabel.Visible = True
  15.         Me.PubKey.Visible = True
  16.         Me.PubKeyLabel.Visible = True
  17.         Me.Wallet.Visible = False
  18.         Me.WalletLabel.Visible = False
  19.         Me.SoloCommand = "1.." & Threads.Text & " | ForEach-Object -Parallel { .\php.exe -c php.ini miner solo https://peer100.jengas.io/" & PubKey.Text & " " & PrivKey.Text & "; sleep 1; } -ThrottleLimit " & Threads.Text
  20.     End Sub
  21.  
  22.     Private Sub PoolRadio_CheckedChanged(sender As Object, e As EventArgs) Handles PoolRadio.CheckedChanged
  23.         Me.PrivKey.Visible = False
  24.         Me.PrivKeyLabel.Visible = False
  25.         Me.PubKey.Visible = False
  26.         Me.PubKeyLabel.Visible = False
  27.         Me.Wallet.Visible = True
  28.         Me.WalletLabel.Visible = True
  29.         Me.PoolCommand = "1 .." & Threads.Text & " | ForEach-Object -Parallel { .\php.exe -c php.ini miner pool http://pool.jengas.io/" & Wallet.Text & "; sleep 1;} -ThrottleLimit" & Threads.Text
  30.  
  31.     End Sub
  32.  
  33.     Public Sub Mine_Click(sender As Object, e As EventArgs) Handles Mine.Click
  34.         If SoloRadio.Checked = True Then
  35.             MyConsole.TB.Text = "1.." & Threads.Text & " | ForEach-Object -Parallel { .\php.exe -c php.ini miner solo https://peer100.jengas.io/" & PubKey.Text & " " & PrivKey.Text & "; sleep 1; } -ThrottleLimit " & Threads.Text
  36.  
  37.         Else
  38.             If PoolRadio.Checked = True Then
  39.                 MyConsole.TB.Text = "1 .." & Threads.Text & " | ForEach-Object -Parallel { .\php.exe -c php.ini miner pool http://pool.jengas.io/" & Wallet.Text & "; sleep 1;} -ThrottleLimit " & Threads.Text
  40.  
  41.  
  42.             End If
  43.  
  44.         End If
  45.  
  46.  
  47.     End Sub
  48.  
  49. End Class
  50.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement