Реклама на hackersoft.ru Реклама на hackersoft.ru

Вернуться   Форумы Hackersoft > Околотематические разделы > Для разработчиков > Программирование > С/С++, C#, Delphi, Pascal, .NET, Asm
CHAT Справка Пользователи Доска почета Календарь Поиск Сообщения за день Все разделы прочитаны

С/С++, C#, Delphi, Pascal, .NET, Asm Все, что связано с программированием на данных языках.

Ответ
 
Опции темы
Старый 24.06.2018, 20: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 вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 02:27.


© 2005 — +∞ Hackersoft. Все и вся защищены.
Публичная оферта | Правила форума | Реклама на сайте
Powered by vBulletin®©™ Jelsoft®©™ Enterprises Ltd. Перевод: zCarot.
Реклама на hackersoft.ru Реклама на hackersoft.ru