Тема: bot miner
Показать сообщение отдельно
Старый 24.06.2018, 19:03   #1
leh12
advanced 
 
Аватар для leh12
 
Регистрация: 26.10.2008
Сообщений: 434
Вес репутации: 10 leh12 знатокleh12 знаток
Депозит: 0$
Вы сказали Спасибо: 26
Поблагодарили 81 раз(а) в 54 сообщениях
Привет всем ..
Примерно как nicehash или awesome написал с помощью таймера
Ничего сложного ..Бот обращается на mpr и парсит наивыгодный алгоритм
ставим порт 17.... и майним наилудшею монету ..все...Ставим только таймер в минутах
В папку грузим майнеры и в тхт пишем атрибуты.
PHP код:
 Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        addnumbers
("https://miningpoolhub.com/?page=home&normalize=nvidia")
        
Label3.Text algo_mph
        Select 
Case algo_mph
            
Case "Ethash"
                
0
                miner_fil 
".\miner\Claymore's_Dual_Ethereum_v11.7\EthDcrMiner64.exe"
                
bat_dev_free()
            Case 
"Equihash"
                
2
                miner_fil 
".\miner\zm_0.6_win\dstm_redirect.exe"
            
Case "Lyra2RE2"
                
1
                miner_fil 
".\miner\ccminer-x64-2.2.5-rvn-cuda9\ccminer-x64.exe"
            ' bat_dev_free()
            Case "NeoScrypt"
                k = 3
                miner_fil = ".\miner\ccminer-x64-2.2.5-rvn-cuda9\ccminer-x64.exe"
            '  
bat_dev_free()
            Case 
"Lyra2z"
                
4
                miner_fil 
".\miner\ccminer-x64-2.2.5-rvn-cuda9\ccminer-x64.exe"
            '   bat_dev_free()
            Case Else
                k = 0
                miner_fil = ".\miner\Claymore'
s_Dual_Ethereum_v11.7\EthDcrMiner64.exe"
                bat_dev_free()
        End Select
        Timer1.Enabled = True
        Timer1.Start()
        batatr = scrypt_file(k)
        Dim sFileContent As String = miner_fil
        sFileContent = sFileContent.Remove(0, sFileContent.LastIndexOf("
\"))
        Label1.Text = sFileContent
        StopThread = False
        thread = New Thread(AddressOf miner2)
        thread.Start()
    End Sub 
Протестирую побольше выложу открытый исходник....
leh12 вне форума   Ответить с цитированием