From 78b0aa7b19a5d3603d75dbe0d42d64b98b739020 Mon Sep 17 00:00:00 2001 From: dnaspider Date: Sat, 27 Jan 2018 04:35:13 -0500 Subject: [PATCH] =?UTF-8?q?=F0=9F=91=BD?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit @dnaspider v2.2.5.13 --- dna.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dna.vb b/dna.vb index ef2b703..b5adf14 100644 --- a/dna.vb +++ b/dna.vb @@ -1,5 +1,5 @@ Public Class dna - 'Author:Peter-Dziezyk:Skype:pdziezyk:dnaspider:14752239770:MVS2017cwu:1.14.2018:v2.2.5.12:cs202 + 'Author:Peter-Dziezyk:Skype:pdziezyk:dnaspider:14752239770:MVS2017cwu:1.27.2018:v2.2.5.13:cs202 Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As UShort Private Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Int32, ByVal Y As Int32) As UShort Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) @@ -3369,7 +3369,8 @@ rtapp: If bricks > "" Then Clipboard.SetText(bricks) a = "" Case "++" 'clipboard++ - Dim cb As String = Val(Clipboard.GetText) + 1 + Dim cb = Val(Clipboard.GetText) + 1 + sleep(1) Clipboard.SetText(cb) print(cb, False) a = "" @@ -3405,6 +3406,7 @@ rtapp: a = "" Case "--" 'clipboard++ Dim cb As String = Val(Clipboard.GetText) - 1 + sleep(1) Clipboard.SetText(cb) print(cb, False) a = ""